VBS: lokale Dienste verwalten mittels VBS

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where State = 'Running'")  
For Each objItem in colListOfServices
	If objItem.Name <> "" Then  
		allServices = allServices & objItem.Name & vbNewLine
	End If
Next
MsgBox "Dies sind alle laufenden Dienste: " & vbnewline & allServices  

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
Set colListOfServices = objWMIService.ExecQuery("Select * from Win32_Service Where State = 'Running'")  
For Each objItem in colListOfServices
	If objItem.Name <> "" Then  
		allServices = allServices & objItem.Name & " # "  
	End If
Next
MsgBox "Dies sind alle laufenden Dienste: " & vbnewline & allServices  

function GenerateForm($sText) {

#region Import the Assemblies
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null  
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null  
#endregion

#region Generated Form Objects
$form1 = New-Object System.Windows.Forms.Form
$textBox1 = New-Object System.Windows.Forms.TextBox
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
#endregion Generated Form Objects

$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 276
$System_Drawing_Size.Width = 362
$form1.ClientSize = $System_Drawing_Size
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.MaximizeBox = $False
$form1.MinimizeBox = $False
$form1.Name = "form1"  
$form1.Text = "Running Processes"  

$textBox1.Anchor = 15
$textBox1.DataBindings.DefaultDataSourceUpdateMode = 0
$System_Drawing_Point = New-Object System.Drawing.Point
$System_Drawing_Point.X = 12
$System_Drawing_Point.Y = 12
$textBox1.Location = $System_Drawing_Point
$textBox1.Multiline = $True
$textBox1.Name = "textBox1"  
$textBox1.ReadOnly = $True
$textBox1.ScrollBars = 2
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 252
$System_Drawing_Size.Width = 338
$textBox1.Size = $System_Drawing_Size
$textBox1.TabIndex = 0
$textBox1.text = $sText

$form1.Controls.Add($textBox1)

#Save the initial state of the form
$InitialFormWindowState = $form1.WindowState
#Init the OnLoad event to correct the initial state of the form
$form1.add_Load($OnLoadForm_StateCorrection)
#Show the Form
$form1.ShowDialog()| Out-Null

} #End Function

$runningServices = Get-Service | ?{$_.Status -eq "Running"} | %{"$($_.Name)`r`n"}  
GenerateForm $runningServices

Set objShell = CreateObject("WScript.Shell")  
objShell.Run "notepad " & "c:\textdatei.txt", 1, true