' FileName: ProcessMagnifier.vbs    
' Function: Capture information about the running processes in detail    
' code by somebody    
' QQ: 240460440    
' LastModified:2007-11-16 18:25    
' 僅供學習    
Const HKEY_CURRENT_USER = &H80000001    
oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/default:StdRegProv")    
strKeyPath = "Console/%SystemRoot%_system32_cmd.exe"   
oReg.CreateKey(HKEY_CURRENT_USER, strKeyPath)    
strValueName1 = "CodePage"   
dwValue1 = 936    
strValueName2 = "ScreenBufferSize"   
dwValue2 = 98304200    
strValueName3 = "WindowSize"   
dwValue3 = 2818173    
strValueName4 = "HistoryNoDup"   
dwValue4 = 0    
strValueName5 = "WindowPosition"   
dwValue5 = 131068    
strValueName6 = "QuickEdit"   
dwValue6 = 2048    
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName1, dwValue1)    
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName2, dwValue2)    
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName3, dwValue3)    
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName4, dwValue4)    
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName5, dwValue5)    
oReg.SetDWORDValue(HKEY_CURRENT_USER, strKeyPath, strValueName6, dwValue6)    
   
Dim objWSH, FinalPath    
objWSH = WScript.CreateObject("WScript.Shell")    
If (LCase(Right(WScript.Fullname, 11)) = "wscript.exe") Then   
    FinalPath = "'" & WScript.ScriptFullName & "'"   
    objWSH.Run("cmd.exe /k cscript //nologo " & Replace(FinalPath, "'", """"))    
    WScript.Quit()    
End If   
oReg.DeleteKey(HKEY_CURRENT_USER, strKeyPath)    
oReg = Nothing   
WScript.Echo()    
WScript.Sleep(1000)    
WScript.Echo("當前正在運行的進程簡要信息列表如下:")    
WScript.Echo(vbCrLf)    
WScript.Sleep(2000)    
Dim MyOBJProcessName