strComputer = ""
strMsg = "This script will restart the SMC services on the remote machine."
strComputer = UCase(Trim(InputBox(strMsg,"Enter Target Computer Name", strComputer))) 
If Len(strComputer) = 0 Then 
	WScript.Echo "Machine name not specified" & vbCrlf &  "Terminating Script"
	WScript.Quit
End If

Set objShell = CreateObject("Wscript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process")
intReturn = objWMIService.Create("c:\program files\symantec client security\symantec antivirus\smc.exe -stop", Null, Null, intProcessID)
Wscript.Sleep 10000
intReturn2 = objWMIService.Create("c:\program files\symantec client security\symantec antivirus\smc.exe -start", Null, Null, intProcessID)