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