Don Hite at myITforum.com

How can I modify this script to prompt for the Computer Name and for the New console folder name and let me know when it has finished.

• Existing Vbs Script

set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

set objSWbemServices= objSWbemLocator.ConnectServer _

    ("COMPUTER NAME", "root\sms")

Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation")

For Each Location In ProviderLoc

If Location.ProviderForLocalSite = True Then

Set objSWbemServices = objSWbemLocator.ConnectServer _

   (Location.Machine, "root\sms\site_" + Location.SiteCode)

End If

Next

Set objNewConsoleFolder = objSWbemServices.Get("SMS_ObjectContainerNode").SpawnInstance_()

objNewConsoleFolder.Name = "Hardware - Disk"

objNewConsoleFolder.ObjectType = 8 ' Report Node.

objNewConsoleFolder.ParentContainerNodeID = 0 'Create in root node.

 objNewConsoleFolder.Put_

• Modified Vbs Script:

strServerName = InputBox ("Enter Reporting Server Name")

strFolderName = InputBox ("Enter Report Folder Name")

set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objSWbemServices= objSWbemLocator.ConnectServer (strServerName, "root\sms")

Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation")

For Each Location In ProviderLoc

If Location.ProviderForLocalSite = True Then

Set objSWbemServices = objSWbemLocator.ConnectServer _

(Location.Machine, "root\sms\site_" + Location.SiteCode)

End If

Next

Set objNewConsoleFolder = objSWbemServices.Get("SMS_ObjectContainerNode").SpawnInstance_()

objNewConsoleFolder.Name = strFolderName

objNewConsoleFolder.ObjectType = 8

objNewConsoleFolder.ParentContainerNodeID = 0

objNewConsoleFolder.Put_

Wscript.Echo "Done"