Set objShell = CreateObject("WScript.Shell")
strComputer = "."
Dim i, j
i=0
j=0
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'palmsim.exe'")
For Each objProcess in colProcessList
    if j>0 Then
        objProcess.Terminate()
    End If
    j=j+1
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'PalMOs.exe'")
For Each objProcess in colProcessList
    if i=0 Then	
		'objShell.AppActivate "PalmosHead"
		'objShell.Run "C:\PALMOS\exe\SoftReset.exe"
		objShell.Run "C:\PALMOS\nircmd.exe win hide title PalmOsHead 1"
    Else
        objProcess.Terminate()
    End If
    i=i+1
Next