'Stop NetLogon
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 Set colProcessList = objWMIService.ExecQuery _
 ("Select * from Win32_Process Where Name = 'netlogon.exe'")
 For Each objProcess in colProcessList
 objProcess.Terminate()
 Next

 Set ComObj = GetObject("WinNT://" & computerid & ",computer")

 Set Netlogons = ComObj.GetObject("Service", "Netlogon")

 Set Workstations = ComObj.GetObject("Service", "lanmanworkstation")

 Set CSNWs = ComObj.GetObject("Service", "NWCWorkstation")

 Set Messengers = ComObj.GetObject("Service", "Messenger")

 Netlogons.Stop