WMICreateService (@WKSTA, "BigBrotherClient", "Big Brother SNM Client 1.08d", "C:\BB\BBNT\1.08d\bin\bbnt.exe","Automatic")

Function WMICreateService($Hostname,$ServiceName,$DisplayName,$PathName,$StartType,Optional $Username,Optional $Pass, Optional $verbose)
	Dim $WMIService,$WMIServiceCreateProperties,$GetError,$GotErr	
	Dim $Text[25]	$Text = "Service "+$ServiceName+" has been created successfully","Not Supported","Access Denied","Dependent Services Running",
	"Invalid Service Control","Service Cannot Accept Control","Service Not Active","Service Request Timeout","Unknown Failure",
	"Path Not Found","Service Already Running","Service Database Locked","Service Dependency Deleted",
	"Service Dependency Failure","Service Disabled","Service Logon Failure","Service Marked For Deletion","Service No Thread",
	"Status Circular Dependency","Status Duplicate Name","Status Invalid Name","Status Invalid Parameter",
	"Status Invalid Service Account","Status Service Exists","Service Paused"
	
	If $verbose	
		$msg = MessageBox ("Function WMICreateService: Started",0)
	EndIf	
	$WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+$Hostname+"/root/cimv2:Win32_Service")	
	If @ERROR
		If $verbose	
			$msg = MessageBox ("Function WMICreateService: WMI Failed",0)
		EndIf		
		$WMICreateService="Function WMICreateService: WMI Failed"		
		Exit -1		
	EndIf	
	If $verbose	
		$msg = MessageBox ("Function WMICreateService: WMI Connected",0)
	EndIf	
	$WMIServiceCreateProperties = $WMIService.Methods_("Create")	
	$Properties=$WMIServiceCreateProperties.inParameters.SpawnInstance_()		
	$Properties.Name = $ServiceName	
	$Properties.DisplayName = $DisplayName	
	$Properties.PathName = $PathName	
	$Properties.StartMode = $StartType	
	$Properties.StartName = $UserName	
	$Properties.StartPassword = $pass	
	$GetError = $WMIService.ExecMethod_("Create", $Properties)	
	$GotErr = $GetError.ReturnValue	
	$WMICreateService = "Function WMICreateService: "+$Text[$GotErr]
	Exit $GotErr	
	If $verbose	
		$msg = MessageBox ("Function WMICreateService: Finished",0)
	EndIf
EndFunction

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Service WHERE Name = 'DbService'")
For Each objService in colListOfServices
 objService.StopService()
 objService.Delete()
Next

Quote:

---

Here's a vbs snippet you could convert to Kixtart:

Code:

---

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Service WHERE Name = 'DbService'")
For Each objService in colListOfServices
 objService.StopService()
 objService.Delete()
Next

---

-Shawn

---

break on



$strComputer = "."

$strService = "Alerter"



$objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + $strComputer + "\root\cimv2")



$colListOfServices = $objWMIService.ExecQuery("SELECT * FROM Win32_Service WHERE Name = '$strService'")



For Each $objService in $colListOfServices

 $= $objService.StopService()

 ;$= $objService.Delete()

Next

Quote:

---

Normally it should not be necessary to manually delete a service. Uninstalling an application should remove its associated service (if any).

However, should it be necessary to manually remove a service:

Run Regedit or regedt32.

Find the registry entry:

HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services

Find the service there and delete it.
You may wish to look at the keys and see what files the service was using and perhaps delete them also.
Note: You will have to reboot before the list gets updated in server manager.

---

Quote:

---

Instead of using WMI can't you use XNET to remove a service??

---