script เช็คโปรแกรมที่ติดตั้งบนเครื่อง client

      ผมเอาไว้ตรวจสอบว่าใครแอบลงโปรแกรมที่ไม่ได้รับอนุญาตหรือเครื่องนี้ลงโปรแกรมอะไรบ้าง  โดยสคริปจะทำการอ่านค่าจาก register ที่ SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\  และมาเก็บในรูป txt file ที่ \\server\sw-list\ ครับ

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

WScript.Sleep(1000 * 60 * 3)   //รอ3นาทีแล้วโปรแกรมทำงาน

on error resume next

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE

Set objNetwork = CreateObject("Wscript.Network")

strComputer = objNetwork.ComputerName

Set WshNetwork = WScript.CreateObject("WScript.Network")

strUserName = WshNetwork.UserName 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.CreateTextFile("\\server\sw-list\" & strcomputer & "_" & strUserName & ".txt", True)   // บันทึกไฟล์ที่ไหน รูปแบบ ชื่อคอม_ชื่อผู้ใช้.txt

strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

strEntry1a = "DisplayName"

strEntry1b = "QuietDisplayName"

Set objReg = GetObject("winmgmts://" & strComputer & _

 "/root/default:StdRegProv")

objReg.EnumKey HKLM, strKey, arrSubkeys

For Each strSubkey In arrSubkeys

  intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _

   strEntry1a, strValue1)

  If intRet1 <> 0 Then

    objReg.GetStringValue HKLM, strKey & strSubkey, _

     strEntry1b, strValue1

  End If

  If strValue1 <> "" Then

objTextFile.WriteLine strValue1 & " "

  End If

Next

strKey2 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\"

strEntry2a = "DisplayName"

strEntry2b = "QuietDisplayName"

Set objReg = GetObject("winmgmts://" & strComputer & _

 "/root/default:StdRegProv")

objReg.EnumKey HKLM, strKey2, arrSubkeys

For Each strSubkey In arrSubkeys

  intRet2 = objReg.GetStringValue(HKLM, strKey2 & strSubkey, _

   strEntry2a, strValue2)

  If intRet2 <> 0 Then

    objReg.GetStringValue HKLM, strKey & strSubkey, _

     strEntry2b, strValue2

  End If

  If strValue2 <> "" Then

objTextFile.WriteLine strValue2 & " "

  End If

Next

objTextFile.Close

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

save เป็นไฟล์ .vbs แล้วให้ทำงานทุกครั้งที่เปิดเครื่อง

หรือ โหลดที่ http://www.mediafire.com/?538dd4w4ptc9nej

Share on Google Plus

About Volk-69

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.