Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3977 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 ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

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

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

LAN, WAN, Wireless
BGH-Urteil: Keine Störerhaftung bei gehacktem WLAN-Passwort (1)

Link von kaiand1 zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
gelöst Anderes Tastaturlayout im WLAN-Passwort-Eingabefeld (2)

Frage von eraiser zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (13)

Frage von JayyyH zum Thema Switche und Hubs ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...