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")
Please also mark the comments that contributed to the solution of the article
Content-Key: 96938
Url: https://administrator.de/contentid/96938
Printed on: May 4, 2024 at 11:05 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 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.