Jump to content
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble
Strawberry Orange Banana Lime Leaf Slate Sky Blueberry Grape Watermelon Chocolate Marble

MSFN is made available via donations, subscriptions and advertising revenue. The use of ad-blocking software hurts the site. Please disable ad-blocking software or set an exception for MSFN. Alternatively, register and become a site sponsor/subscriber and ads will be disabled automatically. 

Sign in to follow this  

Add runonce script

Recommended Posts

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. :rolleyes:

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




Set WSHShell = wscript.CreateObject("Wscript.Shell")

Wscript.sleep 10000




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"


Share this post

Link to post
Share on other sites

You can not delete the file without creating Scripting.FileSystemObject,

Save As Demo_Delete.vbs

'-> Object For Files
Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
'-> Msgbox With Path And Script Name
WScript.Echo WScript.ScriptFullName
'-> Delete The File

Share this post

Link to post
Share on other sites

Hi Gunsmokingman,

Thanks for the script. Should this be a seperate VBS or can I place it in the missing part of the script?


Is it possible to place all the commands in one script and will it run or .....?

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.