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

per VBS neuen nutzer mit adminrechten anlegen

Mitglied: 53111

53111 (Level 1)

07.09.2007, aktualisiert 10.09.2007, 4221 Aufrufe, 5 Kommentare

ich würde gerne per script einen neuen nutzer anlegen lassen und ihm adminrechte zuteilen. ich habe mal versucht das hinzubekommen, allerdings finde ich den fehler nicht (zeile 25?). auch ist mir die zuteilung ("WinNT://" & co & "/Administratoren") nicht klar. nach welchen schema funktioniert das?


01.
Dim netzobjekt, benutzername, computername, becokombination, vorlagenarray
02.
set netzobjekt=wscript.createobject("wscript.network")
03.
benutzername = netzobjekt.UserName
04.
computername = netzobjekt.ComputerName
05.
becokombination = benutzername&computername
06.

07.
vorlagenarray = Array("tobiasSO210", "patrickSO211")
08.
For i = 0 to UBound(vorlagenarray)			
09.
		If becokombination = vorlagenarray(i) Then
10.
    			'wscript.Echo benutzername&computername	
11.
    		  
12.
neuerbenutzer = "testuser"
13.
passwort = "hallo1234"
14.
name = "Test User"
15.
beschreibung = "Test User"
16.

17.

18.
set rechner = GetObject("WinNT://" & computername )
19.
set konto = rechner.Create("User", neuerbenutzer)
20.
konto.SetPassword passwort
21.
konto.fullname = name
22.
konto.description = beschreibung
23.

24.
user = neuerbenutzer
25.
Set userObj = GetObject("WinNT://" & co & "/Administratoren")
26.
Set user = GetObject("WinNT://" & co & "/neuerbenutzer")
27.
userObj.Add user.ADsPath
28.

29.

30.
msgbox("Useraccount " & neuerbenutzer & " wurde angelegt.")
31.
    		  
32.
    		  
33.
    		
34.
		Else
35.
		      			wscript.Echo "nein"
36.
    End If
37.
	Next

gruß saibonaut
Mitglied: bastla
07.09.2007 um 18:14 Uhr
Hallo saibonaut!

Versuch es so:
01.
Dim netzobjekt, benutzername, computername, becokombination, vorlagenarray
02.
set netzobjekt=wscript.createobject("wscript.network")
03.
benutzername = netzobjekt.UserName
04.
computername = netzobjekt.ComputerName
05.
becokombination = benutzername&computername
06.

07.
vorlagenarray = Array("tobiasSO210", "patrickSO211")
08.
For i = 0 to UBound(vorlagenarray)			
09.
	If becokombination = vorlagenarray(i) Then
10.
    		'wscript.Echo benutzername&computername	
11.
    		  
12.
		neuerbenutzer = "testuser"
13.
		passwort = "hallo1234"
14.
		name = "Test User"
15.
		beschreibung = "Test User"
16.

17.
		set rechner = GetObject("WinNT://" & computername)
18.
		set konto = rechner.Create("User", neuerbenutzer)
19.
		konto.SetPassword passwort
20.
		konto.fullname = name
21.
		konto.description = beschreibung
22.
		konto.SetInfo
23.

24.
		Set userObj = GetObject("WinNT://" & computername & "/Administratoren")
25.
		Set user = GetObject("WinNT://" & computername & "/" & neuerbenutzer)
26.
		userObj.Add user.ADsPath
27.

28.
		msgbox("Useraccount " & neuerbenutzer & " wurde angelegt.")
29.
   		
30.
	Else
31.
		wscript.Echo "nein"
32.
    End If
33.
Next
auch ist mir die zuteilung ("WinNT://" & co & "/Administratoren") nicht klar. nach welchen schema funktioniert das?
Gar nicht, weil es keine Variable "co" für den Computernamen gibt - ansonsten erhältst Du damit das Objekt der "Administratoren"-Gruppe, dem Du später mit ".Add" den neuen Benutzer hinzufügst.

Grüße
bastla
Bitte warten ..
Mitglied: 53111
10.09.2007 um 09:20 Uhr
vielen dank

wie würde ich nun vorgehen wenn ich den neuen benutzer einer domain hinzufügen wollte?

ich finde beim googlen manchmal die verwendung von WinNT:// und manchmal LDAP:// wann verwendet man was?


auf diese art bekomme ich die domain ausgegeben:
01.
set objRoot = GetObject("LDAP://rootDSE")
02.
strDomain = objRoot.Get("DefaultNamingContext")
wie kann ich dann den neuen nutzer der domain hinzufügen?


ich habe jetzt folgendes gemacht was aber einen fehler in zeile 26 ausgibt???
01.
Dim netzobjekt, benutzername, computername, becokombination, vorlagenarray
02.
set netzobjekt=wscript.createobject("wscript.network")
03.

04.
set objRoot = GetObject("LDAP://rootDSE")
05.
strDomain = objRoot.Get("DefaultNamingContext")
06.

07.

08.
benutzername = netzobjekt.UserName
09.
computername = netzobjekt.ComputerName
10.

11.
wscript.Echo strDomain
12.

13.
becokombination = benutzername&computername
14.

15.
vorlagenarray = Array("tobiasSO210", "patrickSO211")
16.
For i = 0 to UBound(vorlagenarray)			
17.
	If becokombination = vorlagenarray(i) Then
18.
    		'wscript.Echo benutzername&computername	
19.
    		  
20.
		neuerbenutzer = "testuser"
21.
		passwort = "hallo1234"
22.

23.
    set domainobj = GetObject("LDAP://" & strDomain) 
24.
		set rechner = GetObject("WinNT://" & computername)
25.
		set konto = domainobj.Create("User", neuerbenutzer)
26.
		konto.SetPassword passwort
27.
		konto.fullname = name
28.
		konto.description = beschreibung
29.
		konto.SetInfo
30.

31.
		Set userObj = GetObject("WinNT://" & computername & "/Administratoren")
32.
		Set user = GetObject("WinNT://" & computername & "/" & neuerbenutzer)
33.
		userObj.Add user.ADsPath
34.

35.
		msgbox("Useraccount " & neuerbenutzer & " wurde angelegt.")
36.
   		
37.
	Else
38.
		wscript.Echo "nein"
39.
    End If
40.
Next
Bitte warten ..
Mitglied: bastla
10.09.2007 um 13:57 Uhr
Hallo saibonaut!

Schau Dich einmal hier um: http://www.activexperts.com/activmonitor/windowsmanagement/scripts/acti ...

Grüße
bastla
Bitte warten ..
Mitglied: 53111
10.09.2007 um 14:16 Uhr
ok das scheint dann der entscheidende teil für mich zu sein?

01.
Set objOU = GetObject("LDAP://OU=Management,dc=fabrikam,dc=com")
02.
Set objGroup = objOU.Create("Group", "cn=atl-users")
03.
objGroup.Put "sAMAccountName", "atl-users"
04.
objGroup.SetInfo
05.
 
06.
objGroup.Add objUser.ADSPath
07.
	

ich verstehe nicht ganz was diese ganzen einträge sollen? was ist ou, dc, cn, und wo muss ich den domain und den neuen usernamen eintragen?

dieses "sAMAccountName" verstehe ich als neuen nutzernamen?
Bitte warten ..
Mitglied: bastla
10.09.2007 um 16:25 Uhr
Hallo saibonaut!

dieses "sAMAccountName" verstehe ich als neuen nutzernamen?
Genau: Benutzeranmeldename

OU=Management,dc=fabrikam,dc=com
Der neue Benutzer soll in der Organisationseinheit "Management" der Domäne "fabrikam.com" angelegt und Mitglied der neu erstellten Gruppe "atl-users" werden.

Siehe http://www.rlmueller.net/Name_Attributes.htm (und zu "WinNT vs LDAP": http://www.rlmueller.net/WinNT_LDAP.htm).

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Microsoft Excel VBS
gelöst Frage von Mohji32Microsoft Office6 Kommentare

Guten Tag liebe Leute, ich kenne mich leider nicht sehr gut mit VBS aus aber habe angefangen mich einzuarbeiten. ...

VB for Applications
Excel VBS Datenvergleich
Frage von rocco61VB for Applications

Hallo zusammen, möchte ein Excel Makro in VB, das mit die Gleichheit von 2 Zellen in einer Meldung ausgibt. ...

VB for Applications
Vbs Script Hilfe
gelöst Frage von Dr.CornwallisVB for Applications3 Kommentare

Liebe Gemeinde, hat von euch zufällig jemand ein VBs Script das folgendes o.ä macht: Das Script wird per GPO ...

TK-Netze & Geräte
Suche neu Telefonanlage
gelöst Frage von Fritzle24TK-Netze & Geräte21 Kommentare

Hallo zusammen, nachdem am Freitag unsere Auerswald 2206 USB kaputt gegangen ist, muss ich mich relativ schnell um einen ...

Neue Wissensbeiträge
Windows 10

Windows 10 kann XPS erzeugen aber nicht anzeigen ????

Erfahrungsbericht von Deepsys vor 19 StundenWindows 10

Heute schickt mir ein Kollegen eine E-Mail mit einer XPS-Datei vom Kunden im Anhang und fragt wie er diese ...

Exchange Server

1und1 IONOS: Probleme beim Mailversand mit Exchange

Information von reksierp vor 1 TagExchange Server3 Kommentare

Hallo, seit Do, 17.1.19 etwa Mittags nimmt 1und1 IONOS keine Mails mehr über den Standard-Port SMTP 25 an. Nachdem ...

LAN, WAN, Wireless

Cisco Mikrotik VPN Standort Vernetzung mit dynamischem Routing

Anleitung von aqui vor 1 TagLAN, WAN, Wireless

1. Allgemeine Einleitung Das nachfolgende Tutorial ist eine Fortführung der hier bei Administrator.de schon bestehenden VPN Tutorials und beschreibt ...

Windows Mobile

Support für Windows Mobile endet im Dezember 2019

Information von transocean vor 3 TagenWindows Mobile1 Kommentar

Moin, Microsoft empfiehlt als Alternative den Umstieg auf iOS oder Android, wie man hier lesen kann. Gruß Uwe

Heiß diskutierte Inhalte
Windows Server
MSSQL Backup in Form von .sql einspielen
Frage von janosch12Windows Server14 Kommentare

Guten Morgen, wir verwenden das Tool SQLandFTPBackup ( ) zum sichern einiger MSSQL Datenbanken. Nun sichert das Toll die ...

LAN, WAN, Wireless
Wo lässt sich das Gateway in der FRITZ!Box 7360 einstellen?
gelöst Frage von OssabowLAN, WAN, Wireless13 Kommentare

Hallo all, nach gründlicher Suche scheine ich der einzige zu sein der das Problem hat (macht micht schon mal ...

Microsoft Office
Office 2016 oder Office 2019
Frage von PeterzMicrosoft Office13 Kommentare

Hallo zusammen, wir müssen unser Office von 2010 auf eine neuere Version Umstellen. Jetzt stellt sich die Frage, ob ...

Windows Server
"Konfiguration des Remotedesktop-Sitzungshosts" unter Windows 2016
gelöst Frage von emeriksWindows Server12 Kommentare

Hi, unter Windows 2008 R2 gab es noch eine MMC "Konfiguration des Remotedesktop-Sitzungshosts". Da kann man. u.a. die Konfiguration ...