'-------------------------------------------------------------------------------------------------------------------------------------------
' Fix unregistered Zen Machines
' Author Daniel VanMeter

strExe = "cmd.exe /C zwsreg -unreg && zwsreg"
strComputer = (InputBox("The FixZen utility reregisters a remote client with a Novell Zenwork Server by using the zwsreg command." & vbNewline & " " & vbNewline & "Requirements:" & vbNewline & "1. Access to WMI on remote system." & vbNewline & "2. You must be logged in locally with an account that has admin rights on the remote system." & vbNewline & "3: Zenworks is installed on the remote client." & vbNewline & " " & vbNewline & "Please enter a computer name or IP below:" ,_
"FixZen Tool: Created by Daniel VanMeter"))

If strComputer = "" Then
   wscript.quit(1)
End If

' Connect to WMI
set objWMIService = getobject("winmgmts://"_
& strComputer & "/root/cimv2") 
' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe 

'Execute the program now at the command line.
Set strShell = objWMIService.ExecMethod( _
"Win32_Process", "Create", objProgram) 

WScript.echo "FixZen successfully run on " & strcomputer & ". The computer name may take up to a minute to appear."
WSCript.Quit 

'-------------------------------------------------------------------------------------------------------------------------------------------