VBS Gruppe per localgroup zu Administratoren hinzufügen

Mein VBS-Script:

Dim RunAdmin
Set RunAdmin = WScript.CreateObject ("WSCript.shell")  
RunAdmin.run("runas.exe /user:administrator localgroup.bat")  
Wscript.Sleep 2*1000
CreateObject("WScript.Shell").SendKeys "xxxxx{ENTER}"  
Wscript.Sleep 1*1000


'net localgroup <LOKALEGRUPPE> <DOMÄNE>\<GLOBALEGRUPPE> /add   

localgroup.bat:

@echo off
net localgroup Administratoren xxxx\GlobalGroup /add 

Leider funktioniert die Batch in Verbindung mit dem VBS-Script nicht.
Die BAtch-Datei alleine funktioniert!

Wo liegt dann der Fehler?

PS:
Wie kann ich das ganze ohne zusätzliche Batch-Datei lösen?

So wäre mein Ansatz, leider geht dieser nicht ;):

RunAdmin.run("runas.exe /user:administrator" & "net localgroup Administratoren xxxx\GlobalGroup /add")  

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 96938

Url: https://administrator.de/contentid/96938

Ausgedruckt am: 25.11.2024 um 20:11 Uhr

2 Kommentare

Neuester Kommentar

Moin Moin

Wenn ich das richtig sehe hast Du doch nur deswehgen VSB um deinen Batch herumgebastet um via SendKeys das Kennwort automatisch miteinzugeben, oder?

Also 1. Fette Sicherheitslücke. Kennwörter unverschlüsselt in irgendwelche Skripte zu schreiben.

2. Wenn schon unsicher dann bitte richtig:

Const User="domäne\Benutzer"  
Const PWD="passwort"   

HK = Chr(34)
Set WShell = WScript.CreateObject ("WSCript.shell")  
Set objArgs = WScript.Arguments
If objArgs.count >0 Then
	ExecString = "%windir%\system32\runas.exe /user:" & User & " " & HK & objArgs(0) & HK  
	msgbox ExecString
	WShell.run(ExecString)
	Wscript.Sleep 2*1000
	WShell.SendKeys PWD & "{ENTER}"  
	Wscript.Sleep 1*1000
end if

Speicher dir dieses Skript z.B. als C:\IchAdmin.vbs ab.
Starte dein Batch als C:\IchAdmin.vbs c:\localgroup.bat.
Das solte so Funktionieren.

Oder schau Dir das mal an.

Gruß L.

Ich bin mir vollkommen im Klaren darüber, dass man hier das Passwort rauslesen kann.

Würde das VBScript noch in ne Exe Converten und dann noch mit UPX drüber.

Habe inzwischen eine elegantere Lösung gefunden:

Dim RunAdmin
Set RunAdmin = WScript.CreateObject ("WSCript.shell")  
RunAdmin.run("runas.exe /user:administrator " & Chr(34) & "net localgroup Administratoren xxxx\GlobalGroup /add" & Chr(34))  
Wscript.Sleep 500
CreateObject("WScript.Shell").SendKeys "mein_passwd{ENTER}"  