DeanV
Content Type
Profiles
Forums
Events
Posts posted by DeanV
-
-
Hi all,
First of all I'm new to VBS scripting, I'm trying to build a script that start with a sleep command and then set the DNS Suffix on the NIC, join the (Virtual) machine to a domain and then delete the script after the unattended.xml (is working) is finished, but untill now I'm not very succesfull with it.
The script will be started from the runonce registry (cscript //b c:\windows\system32\sysprep\*.VBS) after the autologon through the unattended.xml.
All script seperate are working.
PLease help me to put this in one file. Thanks in advance.
these script I'm trying to put togheter in one *.VBS.
Set WSHShell = wscript.CreateObject("Wscript.Shell")
Wscript.sleep 20000
_______________________________________________________
Option Explicit
Dim objWMIService, objItem, colItems, strComputer, StrDNSDomain
strComputer ="."
StrDNSDomain ="DOMAIN.com"
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=True")
On error Resume Next
For Each objItem In colItems
'WScript.Echo objItem.DNSDomain
objItem.SetDNSDomain(StrDNSDomain)
Next
____________________________________________________________
Set WSHShell = wscript.CreateObject("Wscript.Shell")
Wscript.sleep 10000
____________________________________________________________
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
strDomain = "Domain.com"
strUser = "Service_account"
strPassword = "Password"
strOU = "OU=VDI,OU=Hyper-V,OU=No WSUS Servers,OU=CORP,DC=grontmij,DC=net"
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'")
objComputer.JoinDomainOrWorkGroup strDomain, strPassword, strDomain & "\" & strUser, strOU, JOIN_DOMAIN + ACCT_CREATE
____________________________________________________________________
Set WSHShell = wscript.CreateObject("Wscript.Shell")
Wscript.sleep 60000
______________________________________________________________________
Here should be the delete command of this file?
_______________________________________________________________________
Set WSHShell = Wscript.CreateObject("WScript.Shell")
WshShell.Run "c:\windows\system32\shutdown.exe /r /t 20"
Thanks.
0
Add runonce script
in Programming (C++, Delphi, VB/VBS, CMD/batch, etc.)
Posted
Hi Gunsmokingman,
Thanks for the script. Should this be a seperate VBS or can I place it in the missing part of the script?
and
Is it possible to place all the commands in one script and will it run or .....?