Interactive Ilo-script

[Brassen99]

Hi!
I wonder if you make an interactive script with hponcfg?
Ex. if i want to run the script on many machines and change the static ip-adress when the script runs.

[acartes]

The username and password can be overridden using command-line parameters, but I do not believe that an internal script value can be substituted using HPONCFG command-line.

[David Claypool]

What I have done in the past is create a script that prompts the user for the values and then basically constructs an XML file on disk that the script then uses to talk to iLO...

[Paede]

I have all the iLO IP and Servername in a Access MDB.
To deploy Servers:
- Altiris RDP copies the MDB to the Server
- a script reads the MDB searches for the iLO IP
- script writes the iLO IP to a local XML
- script-hponcfg configures the IP on iLO

This is very helpful by deploing many server on one time

[Brassen99]

Ok thanks!
David, do you have any example of a file that prompt the user so he can alter the values?

[Raghuarch]

Check this link i think this will solve the problem...Make sure you run the particular XML script.

I have tried it on my XP. It Works fine.
http://forums12.itrc.hp.com/service/forums/questionanswer.do?threadId=1102561

Regards,
Raghuarch

[Rajeshwari, Hiresave]

Check out the variable substitution feature of Hponcfg....
Page #69 of HP lights-out scripting and command line resource guide - http://bizsupport.austin.hp.com/bc/docs/support/SupportManual/c00294268/c00294268.pdf

You can use this feature to have a single XML script MOD_NETWORK_SETTINGS.xml and provide different "ip-addresses" and "dns names" at runtime using the command line option "/s" to configure the required network settings for each of the server.

The RIBCL xml script might look like ...

Mod_Network.xml :











Use - hponcfg /f Mod_Network.xml /s IPADDRESS="x.x.x.x",DNSNAME="xxxxx"

[mark q]

I've build a script that I posted in the forums that can dynamically build all of the configuration items (with variables) and you can configure what you like with it.

changes the lights out to serverLO restof name

so if your server is insightmanager
insightmanagloer would be the lights out name

- you can customize it for whatever you need all variables are in the beginning of the script all ilo functions are in the script - I just have a batch file that copies the customized vbs to c:\program files\hp\hponcfg runs the vbs and then runs hponcfg /f xmlname.xml...

if you have any questions email me


' read computername

DIM computername
DIM leftcomputername
DIM rightcomputername
DIM ilovariable
DIM finalname

'set the ilo username and password
strRILOEUser = "someadmin"
strRILOEPW = "somepassword"

'set the settings for the network xml file
strenablenicvalue = "Yes"
strregddnsserver = "Yes"
strpinggateway = "Yes"
strdhcpdomainname = "YES"
strspeedautoselect = "Yes"
strnicspeed = "100"
strfullduplex = "Yes"
strdhcpenable = "Yes"
'if you want to ask what the ip address is unrem the next 3 lines and then rem the next 3 out after these 3
'stripaddress = InputBox("What is the ip address of the ilo", "Ilo Ip Address", default)
'strsubnetmask = InputBox("What is the Subnet Mask of the ilo", "Ilo Subnet Mask Address", default)
'strgatewayip = InputBox("What is the Default Gateway of the ilo", "Ilo Default Gateway", default)
stripaddress = "192.168.1.1"
strsubnetmask = "255.255.255.0"
strgatewayip = "192.168.1.1"
strdomainname = "domainname.com"
strdhcpgateway = "YES"
strdhcpdnsserver = "192.168.1.1"
strdhcpwinsserver = "192.168.1.1"
strdhcpstaticroute = "192.168.1.1"
strregwinsserver = "YES"
strpridnsserver = "192.168.1.1"
strsecdnsserver = "192.168.1.1"
strterdnsserver = "192.168.1.1"
strpriwinsserver = "192.168.1.1"
strsecwinsserver = "192.168.1.1"
strstaticroute1 = "0.0.0.0"
strstaticroute2 = "0.0.0.0"
strstaticroute3 = "0.0.0.0"
strstaticroute1gateway = "0.0.0.0"
strstaticroute2gateway = "0.0.0.0"
strstaticroute3gateway = "0.0.0.0"
strenclosureipenable = "YES"
strwebagentipaddress = "192.168.1.1"

'set the variable for snmp
Set WshNetwork=WScript.CreateObject("WScript.Network")
strwebagentip = WshNetwork.ComputerName
strsnmpaddress1 = "192.168.1.1"
strsnmpaddress2 = "192.168.1.1"
strsnmpaddress3 = ""
strostraps = "Y"
strsnmppass = "Y"
strribtraps = "Y"
strCIMSECURITYMASK = "3"

'set the variables for adding a user
'username to add
straddusername = "someadmin"
'username to add's password
struserlogin ="someadmin"
'usernames new password
strnewuserpassword ="somepassword"
stradminpriv = "Yes"
strremoteconsolepriv = "Yes"
strresetserverpriv = "Yes"
strvirtualmediapriv = "Yes"
sterconfigilopriv = "Yes"
strconfigrilopriv = "Yes"
strloginpriv = "Yes"
'the settings for this are range and subnetmask
strclientrange = "10.10.10.1 - 254.255.255.255"
strviewlogspriv = "Yes"
strclearlogspriv = "Yes"
stremsprive = "Yes"
strupdateilopriv = "Yes"
strconfgirackpriv = "Yes"
strdiagpriv = "Yes"

'set the variables for generating certificate xml file

'set the variables for directory configuration xml files
'format for this is yes or no
stdirauthenabled ="YES"
strdirlocaluseracct ="YES"
strdirserveraddress ="192.168.1.1"
strdirserverportvalue ="636"
'format for the strdirobjectdn variable is like this CN=server1_rib, OU=RIB, DC=HPRIB, DC=LABS
strdirobjectdn = "CN=server1_rib, OU=RIB, DC=HPRIB, DC=LABS"
strdirobjectpassword = "password"
'format for the strdirusercontext is like this CN=Users, DC=HPRIB, DC=LABS
strdirusercontext1 ="CN=Users, DC=HPRIB, DC=LABS"
'format for this is yes or no
strdirenablegrpacct ="YES"

'user password change variables
stdmoduserlogin = "username"
strmoduserpassword = "newpassword"

'this section is for the Mod_Blade_Rack.xml
strrackname = "CPQRack1"
strencname = "CPQEnclosure1"
strbaynamename = "CPQBay5"
strfacilitypower = "Yes"
strrackautopwr = "Yes"
strsnmprackalerts = "Yes"
strlograckalerts = "Yes"

'this section is for the mod_global_settings of the ilo
strsessiontimeout = "60"
strf8promptenabled = "Yes"
strhttpportvalue = "80"
strhttpsportvalue = "443"
strremoteconsoleport = "23"
strremoteconsoleportstatus = "2"
strremoteconsoleencryptionvalue = "Yes"
strminpasswordvalue = "8"
strilofunctenabled = "No"
strvirtualmediaport = "17988"
strf8loginrequired = "No"
strremotekeyboardmodel = "US"
strpassthroughconfig = "1"
strterminalservicesport = "3389"
strsshportvalue = "22"
strsshstatusvalue = "Yes"
strserialclistatus = "3"
strserialclispeed = "1"
strrbsupostipvalue = "Y"
strtelnetenablevalue = "yes"
strhighperformancemousevalue = "Yes"
strstrremoteconsoleacquire = "Yes"
strhostkeyboardenabledvalue = "Yes"
strremotekeyboardmodelvalue = "US"
strpocketpcaccessvalue = "YES"
strcipherstrengthvalue = "128"
strsnmpaddress1value = "123.124.125.126"
strsnmpaddress2value = "test"
strsnmpaddress3value = "dest"
strostrapsvalue = "Y"
strribtrapsvalue = "N"
strcimsecuritymaskvalue = "3"
stremsstatusvalue = "Y"
strbypasspowercablereporting = "N"
strsnmppassthroughstatus = "Y"

'this sets up the advanced pack license
'stractivatekey = InputBox("What is the advanced pack license for the ilo (no spaces!)", "Advanced Pack License", default)
'this section of the vbs will build the name of the ilo to whatever standard you need based on the %computername% variable

'this is for deleting a user from the ilo
strdeleteuserid = "userid"
'strdeleteuserid = InputBox("What is the user id that you want to delete", "Delete a user", default)

'this is for ejecting media from the ilo
'correct answer is cdrom or floppy (unrem the one that you want to eject)
strdevicetoeject = "FLOPPY"
'strdevicetoeject = "CDROM"

' this is for inserting virtual medial to the ilo
strdevicetoinsert = "FLOPPY"
strdevicetoinsert = "CDROM"
strurlofdevicetoinsert = "http://188.188.188.33/images/Floppy/dos.bin"
strinjectimage = "C:\image.bin"

'get the computername
'Set WshNetwork=WScript.CreateObject("WScript.Network")
'WScript.Echo "Your Computer Name is = " & WshNetwork.ComputerName

'this section of the vbs will build the name of the ilo to whatever standard you need based on the %computername% variable

'get the computername
Set WshNetwork=WScript.CreateObject("WScript.Network")
'WScript.Echo "Your Computer Name is = " & WshNetwork.ComputerName

'set the comptuername variable
COMPUTERNAME=WshNetwork.ComputerName
'WScript.Echo computername
'set the ilo name that will be inserted
ilovariable=("LO")
'WScript.Echo ilovariable

'make sure there's no spaces in the name
computername = Trim(computername)

'get the length of the computername
Count=Len(computername)
'WScript.Echo count
'WScript.Echo computername
count=count-2
'WScript.Echo count

'left trim string
leftcomputername=Left(computername,count)
'WScript.Echo leftcomputername

'trim the right string and assign it to a variable
rightcomputername = Right(COMPUTERNAME,2)
'WScript.Echo rightcomputername

finalname=leftcomputername
finalname=finalname & ilovariable
finalname=finalname & rightcomputername
'WScript.Echo "Your Ilo Name would be = " & finalname

'time to execute hp online config utility
'Executes HPONCFG.exe in order to gather iLO config

'Generate the xml file sample
'This is for the network settings.xml
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Mod_Network_Settings.xml")
'generate the ilo name xml
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " -->" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'generate the snmp xml configuration file
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Mod_SNMP_IM_Settings.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'generate the add_user.xml
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("add_user.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " 'XMLWrite.Write " USER_NAME =" & Chr(34) & straddusername & Chr(34) & "" & vbcrlf
'XMLWrite.Write " USER_LOGIN =" & Chr(34) & struserlogin & Chr(34) & "" & vbcrlf
'XMLWrite.Write " PASSWORD =" & Chr(34) & strnewuserpassword & Chr(34) & ">" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " -->" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'xml generator for certificates import
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Import_Cert.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " -----BEGIN CERTIFICATE-----" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " -----END CERTIFICATE-------" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'directory xml generator for setup of directory
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Mod_Directory.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'change password generator for ilo
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("change_password.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

''reset ilo generator this reboots the ilo
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("reset_rib.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'change the enclosure settings
'Set XMLWrite = objFSO.CreateTextFile("Mod_Blade_Rack.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'change the global settings
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Mod_Global_Settings.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'ilo advanced pack license generator
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("license.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'clear the event log
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Clear_EventLog.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'clear the integrated management log
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Clear_IML.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'Delete a user that you specify
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Delete_User.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'Eject a floppy or cdrom
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Eject_Virtual_Media.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'Request A certificate
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'Set objWshShell = CreateObject("Wscript.Shell")
'Set XMLWrite = objFSO.CreateTextFile("Cert_Request.xml")
'XMLWrite.Write "" & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
'XMLWrite.Write "" & vbcrlf
'XMLWrite.close

'insert a floppy or cdrom
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWshShell = CreateObject("Wscript.Shell")
Set XMLWrite = objFSO.CreateTextFile("Insert_Virtual_Media.xml")
XMLWrite.Write "" & vbcrlf
XMLWrite.Write " " & vbcrlf
XMLWrite.Write " " & vbcrlf
XMLWrite.Write " " & vbcrlf
'XMLWrite.Write " " & vbcrlf
XMLWrite.Write " " & vbcrlf
XMLWrite.Write " " & vbcrlf
XMLWrite.Write "" & vbcrlf
XMLWrite.close