bammboole
Goto Top

Vbs script bei systemstart-Administratoranmeldung

Hallo erstma,

ich da eine vbs angepasst, die auch so funktioniert wie ich es will. Allerdings nur wenn ich diese "von Hand" ausführe. Sie soll allerdings im Autostart des Admins ausgeführt werden und das will irgendwie nicht.

Alos der Plan ist: Mit Acronis Snap Deploy 4 sollen Win7 Images verteilt werden und automatisch in die Domain gehoben werden + noch autologon erstellt. Problem: Es ist eine Samba Domain und Aconis Snap Deploy kann damit nicht arbeiten. Ein umschwenken auf eine Win-Domain steht nicht zur debatte (ist nicht meine Entscheidung).
Mein script schafft das alles sehr nett nur will es nicht automatisch beim anmelden des Admins starten.

Hier erstma das script:

Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALL_INVOCATION = 262144

Set WSHShell = WScript.CreateObject("WScript.Shell")  
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\WaitForNetwork", "1", "REG_DWORD"  
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\DeleteRoamingCache", "0", "REG_DWORD"  
 
strDomain = "********" ' hier die Windowsdomain  
strPassword = "********" ' very secret  
strUser = "Administrator"  ' Domainadmin  

Set objNetwork = CreateObject("WScript.Network")  
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _  
    strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _  
        strComputer & "'")  
 
ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _
    strPassword, strDomain & "\" & strUser, NULL, _  
        JOIN_DOMAIN + ACCT_CREATE)		

WScript.sleep 30
		
Set WSHShell = WScript.CreateObject("WScript.Shell")  
Wshshell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\AutoAdminLogon", "1", "REG_SZ"  
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultUserName", strComputer , "REG_SZ"  
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultPassword", "*******" , "REG_SZ"  
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName", strDomain , "REG_SZ"  
 

Set WSHShell = WScript.CreateObject("WScript.Shell")  
WshShell.Run "shutdown.exe -r -f -t 30"  
 
set shell = WScript.CreateObject("WScript.Shell")  
windir = shell.ExpandEnvironmentStrings("%windir%")  
 
set filesys = CreateObject ("Scripting.FileSystemObject")  
set tempFile = filesys.Getfile(windir & "\system32\join.vbs")  
tempfile.Delete

Wscript.Quit

Kurz zum Ablauf:

Das Images wird nach wunsch vorbereitet. Als letztes wird noch autologn.exe ausgeführt und der lokale Admin eingetragen. Dann wird ein Online-Image davon erstellt und die VBS in den Autostart des admins eingefügt. Acronis verteilt das Image,startet neu, macht die SID neu und vergibt einen Computernamen nach vorgabe. Dann wird der Admin wie vorgesehen angemeldet und dann wars dat.
Auch ohne Image aufspielen: Der Admin meldet sich immmer automatisch an aber die vbs wird nicht gestartet. Von "Hand" geht ohne probleme.
Hab die vbs auch schon in C:\Windows\System32\GroupPolicy\Machine\Scripts\Startup für Systemstart und Benutzerstart eingetragen und entsprechenden gpedit eintrag gesetzt mit Parameter wscript //nologo //I. Et will aber net.
Btw.: Hab mit das ding durch googlen zusammengebastelt, also bitte nicht zu sehr mekern ;)

Hat jemand eine Idee wie ich das ding ausgeführt bekomme sobald sich der Admin anmeldet?

Grüße Bammboole

Content-Key: 197619

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

Printed on: April 18, 2024 at 04:04 o'clock

Mitglied: 110135
110135 Jan 26, 2013 at 09:04:08 (UTC)
Goto Top
Hallo,

wie versuchst du es denn zu starten?

Versuche mal folgendes:
- Lege eine .bat-File auf Laufwerk C:\ an.
- in dieser .bat-File steht folgendes: wscript (und deine Parameter, Aufruf des Scripts)
- die .vbs-File liegt ebenfalls auf LW C:\
- jetzt erstellst du eine Verknüpfung zur .bat-Datei. Diese Verknüpfung kopierst du in den Autostart.

Vielleicht funktioniert es so.

LG
Florian