Take user input and use to save XML output file

See more:

VBScript

XML

I have a script to create xml config files for Mifi boxes that we will be deploying on a large scale. I want to be able to take input from the user as to what the config file is named. I have added more code below the only thing I am leaving out are the 800+ lines of me creating all the config file XML fields.

Set xmlDoc = _
  CreateObject("Microsoft.XMLDOM")  

'here is where I create all the fields of the xml config file
'
'
'
'
'
'
'
'
'Code continued below.

strConfigFileName = UserInput ( "Enter output file name" )

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set OutputFileName = myFSO.OpenTextFile( "C:\Users\testing\Documents\Scripts\Edit XML\" & strConfigFileName & ".xml", 8, True)
OutputFileName.Close


xmlDoc.save ("C:\Users\testing\Documents\Scripts\Edit XML\" & OutputFileName)



xmlDoc.Async = "False"
xmlDoc.Load("C:\Users\testing\Documents\Scripts\Edit XML\" & OutputFileName)




strSsid = UserInput( "Enter Device SSID:" )
Set colNodes1=xmlDoc.selectNodes _
  ("/Hudson1/Profiles/Secure/ssid")

For Each objVersion in colNodes1
   objVersion.Text = strSsid
Next

strDeviceIp = UserInput( "Enter Device IP Address:" )
Set colNodes2=xmlDoc.selectNodes _
  ("/Hudson1/General/System/ipaddr")

For Each objVersion in colNodes2
   objVersion.Text = strDeviceIp
Next

strWpaPassword = UserInput( "Enter WPA Password:" )
'WScript.Echo "You entered: " & strInput

Set colNodes3=xmlDoc.selectNodes _
  ("/Hudson1/Profiles/Secure/psk")

For Each objVersion in colNodes3
   objVersion.Text = strWpaPassword
Next


strAdminPassword = UserInput( "Enter Admin Password:" )
'WScript.Echo "You entered: " & strInput


Set colNodes4=xmlDoc.selectNodes _
  ("/Hudson1/Router/HTTP/password")

For Each objVersion in colNodes4
   objVersion.Text = strAdminPassword
Next
    	





xmlDoc.save "C:\Users\testing\Documents\Scripts\VBScript to XML\mifisettings.xml"  

but it is telling me that the xmlDoc.Save does not support this method. Can anyone help?