伯爵筆記 - 奧西諾inNow

首先要在Domain Admin權限登入的電腦上執行 或 本身使用者為對方管理員 (前題)

再將下面貼到筆記本 改檔名為 xxx.vbs

'第一行是指 錯了還是繼續換行執行 然後自動開了一個筆記本

'IP的部分要修改成需要的範圍   邏輯是 用for跑IP  ping的到(有連線) 再針對其Administrators群組加入指定網域ID 另外SENDKEY是模擬鍵盤輸入 詳細請GOOGLE

On Error Resume Next
set WshShell = CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 200
strAccount = "網域帳號"
strGroup = "Administrators"
For i = 51 To 100
ip ="192.168.1."&i
if WshShell.Run("ping -n 1 -w 300 "&ip,0,True)=0 then
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & ip & "\root\cimv2")
set objOperationSystem = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each oi in objOperationSystem
strComputer=oi.Name
Set objAdmins = GetObject("WinNT://" & ip & "/" & strGroup)
Set objGroup = GetObject("WinNT://"&strAccount )
objAdmins.Add(objGroup.ADsPath)
WshShell.SendKeys ip&objGroup.ADsPath&"{ENTER}"
NEXT
Else
WshShell.SendKeys ip&"lose"&"{ENTER}"
End If
NEXT
msgbox("Finish right!")