Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account


Photo

Add runonce script

- - - - -

  • Please log in to reply
3 replies to this topic

#1
DeanV

DeanV
  • Member
  • 2 posts
  • Joined 24-September 12
  • OS:Windows 7 x64
  • Country: Country Flag
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
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.


How to remove advertisement from MSFN

#2
gunsmokingman

gunsmokingman

    MSFN Master

  • Super Moderator
  • 2,419 posts
  • Joined 02-August 03
  • OS:none specified
  • Country: Country Flag
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
 Fso.DeleteFile(WScript.ScriptFullName),True



GunSmokingMan



#3
DeanV

DeanV
  • Member
  • 2 posts
  • Joined 24-September 12
  • OS:Windows 7 x64
  • Country: Country Flag
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 .....?

#4
gunsmokingman

gunsmokingman

    MSFN Master

  • Super Moderator
  • 2,419 posts
  • Joined 02-August 03
  • OS:none specified
  • Country: Country Flag
You could make one big script and use the delete example at the end of the script.


GunSmokingMan






0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users



How to remove advertisement from MSFN