2
VBS Gruppe per localgroup zu Administratoren hinzufügen
Mein VBS-Script:
localgroup.bat:
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 ;):
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") 
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 96938
Url: https://administrator.de/contentid/96938
Printed on: April 24, 2024 at 06:04 o'clock
2 Comments
Latest comment
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:
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.
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 ifSpeicher 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:
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}" 
