regsvr32 /u msxml4.dll
regsvr32 msxml4.dll
net stop sbamsvc
net start sbamsvc
set path=%path%;%programfiles%Windows Resource KitsTools
subinacl /subdirectories “C:Documents and SettingsAll UsersApplication DataSunbeltAntiMalware” > c:loginfo.txt
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” & strComputer & “rootcimv2”)
Set colServiceList = objWMIService.ExecQuery(“Select * from Win32_Service where Name = ‘sbamsvc'”)
For Each objService in colServiceList
If objService.State = “Running” Then
objService.StopService()
Wscript.Sleep 5000
End If
ErrReturn = objService.Change( , , , , , ,”.administrator”, “password”)
objService.StartService()
Next