Bluetooth keyboard problem - Eidos Forums - The Diigo Meta page

• 02 Aug 08
  

  Mr. DiGi

  hry windows system

  • Const NORMAL = 32
     
     Dim WshShell, oExec
     
     Set WshShell = CreateObject("WScript.Shell")
     
     Set oExec = WshShell.Exec("trl.exe")
     
     WScript.Sleep 10000
     
     strComputer = "."
     Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
     
     Set colProcesses = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = 'trl.exe'")
     For Each objProcess in colProcesses
      objProcess.SetPriority(NORMAL)
     Next

Would you like to comment?

Join Diigo for a free account, or sign in if you are already a member.