Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

PASSWort Befehl benötigt

Frage Microsoft Windows Server

Mitglied: Neupraktikant

Neupraktikant (Level 1) - Jetzt verbinden

30.11.2006, aktualisiert 04.12.2006, 4003 Aufrufe, 3 Kommentare

Const ADS_PROPERTY_APPEND = 3

Dim strNewName
Dim objFSO
Dim f
'Argumente Vorname Nachname
Set objArgs = Wscript.Arguments
Set WshShell = Wscript.CreateObject("Wscript.Shell")
strNewName = objArgs(1) & Left(objArgs(0), 2)
strNachName = objArgs(1)

Set objOU = GetObject("LDAP://OU=BP,dc=berlin-partner,dc=de")
Set objUser = objOU.Create("User", "cn=" & strNewName)
objUser.Put "sAMAccountName", strNewName
objUser.Put "userPrincipalName", strNachName & "@belin-partner.de"
objUser.Put "givenName", objArgs(0)
objUser.Put "mail", objArgs(0) &"."& objArgs(1)&"@belin-partner.de"
objUser.Put "initials", LEFT(objArgs(0),1)&"."&LEFT(objArgs(1),1)&"."
objUser.Put "sn", objArgs(1)
objUser.Put "displayName", objArgs(1) & ", " & objArgs(0)
objUser.Put "profilePath", "\\dc18\profile$\" & strNewName
objUser.SetInfo


' Passwortvergabe
objUser.SetPassword "BPE8210"
objUser.SetInfo



'Kontosperrung oder nicht
objUser.AccountDisabled = False
objUser.SetInfo

'Gruppe NONOtes
Set objGroup = GetObject ("LDAP://cn=G_nonotes,OU=BP,dc=berlin-partner,dc=de")
objGroup.PutEx 3,"member", Array("cn=" & strNewName & ",ou=BP,dc=berlin-partner,dc=de")
objGroup.SetInfo

'Gruppe Mailreport
Set objGroup = GetObject ("LDAP://cn=G_mailreport,OU=BP,dc=berlin-partner,dc=de")
objGroup.PutEx 3,"member", Array("cn=" & strNewName & ",ou=BP,dc=berlin-partner,dc=de")
objGroup.SetInfo

MakeFolder "C:\Profile\" & strNewName & "\"
MakeFolder "C:\Basisverzeichnis\" & strNewName & "\"
WshShell.Run("cscript XCACLS.vbs C:\Basisverzeichnis\" & strNewName & " /E /G Berlin-Partner\" & strNewName & ":M x")
WshShell.Run("cscript XCACLS.vbs C:\Profile\" & strNewName & " /E /G Berlin-Partner\" & strNewName & ":M
x")

Sub MakeFolder(Dir)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set f = objFSO.CreateFolder(Dir)
End Sub




so das is erstamal mein überarbeitetes Skript es klappt auch alles benutzer wird Hinzugefüght alle rechte vergeben. Ich kann den Benutzer nur nicht in der Domäne anmelden da immer das PW falsch ist. Es muss dann wohl an dieser Zeile liegen

objUser.SetPassword "BPE8210"
objUser.SetInfo


kann mir jemand den richtigen Befehl sagen oder erklären was da schief läuft

Viele Grüße und Danke

JAN

[Edit Biber] Juni 2008
Na ja, das mit dem kleinen grünen Haken hat nicht geklappt - den setze ich jetzt und schliesse den Thread. [/Edit]
Mitglied: Biber
30.11.2006 um 21:31 Uhr
Moin Neupraktikant,

kann mir jemand den richtigen Befehl sagen oder erklären was da schief läuft
kann Deiner Bitte nur teilweise nachkommen
Inoffizieller Workaround:
01.
... 
02.
     objUser.SetPassword ("BPE8210") 
03.
     objUser.GetInfo 
04.
     objUser.SetInfo
Die offizielle Variante ist allerdings:
01.
.... 
02.
        objUser.SetPassword ("BPE8210") 
03.
        objUser.Put "userAccountControl", 512           ' 512 = Enable, 514 = Disable. 
04.
        objUser.Put "PwdLastSet", 0                           ' Default ist -1 
05.
        objUser.SetInfo
Probier es mal mit dieser zweiten Sequenz.
Ich denke "was da schief läuft" ist, Windows-Systeme verkaufen sich immer, egal wie grottig die zusammengeschreddert sind...
Aber "erklären" kann ich Dir das nicht wirklich.

HTH
Biber
Bitte warten ..
Mitglied: Neupraktikant
04.12.2006 um 09:39 Uhr
danke hat geklappt :D
Bitte warten ..
Mitglied: Biber
04.12.2006 um 10:15 Uhr
Natürlich - Windows ist doch ein intuitiv bedienbares System!
... und der Mond ist aus Schweizer Käse..

Machst Du bitte so einen kleinen grünen Haken an Deinen Beitrag?

Danke
Biber
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung
Benötigte Rechte für PC Domjoin (2)

Frage von Phill93 zum Thema Windows Userverwaltung ...

Windows Server
gelöst WSUS - Nicht benötigte Updates entfernen (11)

Frage von leon123 zum Thema Windows Server ...

RedHat, CentOS, Fedora
Linuxbefehl - resizepart - wofür verwendet man diesen Befehl (8)

Frage von mic.we zum Thema RedHat, CentOS, Fedora ...

Windows 7
Verteillösung für IT-Raum benötigt (12)

Frage von TheM-Man zum Thema Windows 7 ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(2)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...