Server Management - Remote Server Management
1748180 Members
4347 Online
108759 Solutions
New Discussion юеВ

Script a license

 
RalphJ
Occasional Contributor

Script a license

Hello,

I have multiple servers to add a iLO license to. Is this possible with a script ?

Thanks !
4 REPLIES 4
JKytsi
Honored Contributor

Re: Script a license

Jimmy Vance
HPE Pro

Re: Script a license

There are also Linux versions of the sample scripts with an included perl script if your running Linux

HP Lights-Out XML PERL Scripting Sample for Linux

http://h20000.www2.hp.com/bizsupport/TechSupport/SoftwareDescription.jsp?lang=en&cc=us&prodTypeId=15351&prodSeriesId=316558&prodNameId=3288138&swEnvOID=2025&swLang=8&mode=2&taskId=135&swItem=MTX-122d9858d077497ca381eb85a4
No support by private messages. Please ask the forum! 
acartes
Honored Contributor

Re: Script a license

Another option is to use SSH over the network to push license keys to iLO. You can automate this for Windows or Linux, a Windows example is shown using the "plink" utility (part of the free PuTTY client):

C:\Program Files\putty>plink -ssh -l Administrator -pw password ilo.corp.net set map1 license = 111112222233334444455555

To download putty:
http://www.google.com/search?hl=en&q=PuTTY
mark q
Regular Advisor

Re: Script a license

look at this script - you can have it ask for the ilo advanced paq license..

' 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