Top-Themen

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

Mitglied: Neupraktikant

Neupraktikant (Level 1) - Jetzt verbinden

30.11.2006, aktualisiert 04.12.2006, 4027 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
Netzwerkmanagement

LTE Netzwerkaufbau - Verbesserungsvorschläge benötigt

gelöst Frage von chemistryyNetzwerkmanagement11 Kommentare

Hallo und guten Morgen! Ich benötige Hilfe/Verbesserungsvorschläge beim Aufbau meines Heimnetzwerks. Ich und mein Nachbar besitzen beide jeweils einen ...

Windows Userverwaltung

Benötigte Rechte für PC Domjoin

Frage von Phill93Windows Userverwaltung2 Kommentare

Hallo, welche Rechte benötigt ein Konto um PC´s in die Domäne aufzunehmen? Ziel ist es einen User zu haben ...

Exchange Server

Welche Zertifikate werden für den Exchange wirklich benötigt?

Frage von magicpeterExchange Server8 Kommentare

Moin, ich betreibe einen Exchange 2013 mit folgenden Zertifikaten und SplittDNS (remote.domain.com). Welches Zertifikate werden für den Exchange benötigt? ...

Schulung & Training

Abschätzung benötigte Arbeitszeit

gelöst Frage von Kisl476Schulung & Training15 Kommentare

Hallo allerseits, ich habe eine Frage an erfahrene Profi-Adminstratoren, die damit schon lange ihr Geld verdienen. Ein "Betrieb" verfügt ...

Neue Wissensbeiträge
Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 8 StundenWindows 10

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 9 StundenWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 2 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Suche Projektpartner

PC Recycling Projekte mit Flüchtlingen und Kids suchen Materialspenden und Mitmacher!

Erfahrungsbericht von NettePCyclePiraten vor 3 TagenSuche Projektpartner12 Kommentare

Hallöchen liebe Kollegen, ich betreue zwei PC-Gruppen im Raum Dortmund: "Ne#e PCycle Pir@ten" & "PCschr@uber Br@mbauer" Wir sind eine ...

Heiß diskutierte Inhalte
Batch & Shell
PowerShell Auflösung zu .txt (Skript als exe) falsche Auflösung?!
Frage von timsen-96Batch & Shell26 Kommentare

Ich habe folgendes Skript um die Bildschirmauflösung herauszufinden, was auch in PowerShell super funktioniert: Add-Type -AssemblyName System.Windows.Forms $Width = ...

Humor (lol)
Windows 10 - immer für Überraschungen gut
gelöst Frage von HenereHumor (lol)18 Kommentare

Eben nach (beim) installieren der neuesten Updates für 1803 :-) Und sorry fürs Handyfoto, aber der musste sein. Nach ...

Exchange Server
Exchange Backup 10 Jahre Aufbewahrung
Frage von arccosExchange Server17 Kommentare

Hallo zusammen. Aktuell beschäftigen mich ein paar Fragen zum Thema Office365/ Exchange. 1.10 Jahre Aufbewahrungspflicht sicherstellen 2.Kann man als ...

Samba
Samba-NAS Zugriff verweigert
gelöst Frage von VernoxVernaxSamba15 Kommentare

hallo ich schaffe es einfach nicht meinem User Rechte zum schreiben zu geben. Ich habe dies alles auf nem ...