Set objNetwork = CreateObject("Wscript.Network")  
strComputer = objNetwork.ComputerName  
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")  
If objUser.AccountDisabled Then  
Wscript.Echo "Guest为禁用状态"  
Else  
Wscript.Echo "Guest为开启状态"  
End If 

用vbs实现的输入助手附使用方法
//把要ECHO的脚本,拖到此脚本上...根据提示操作即可OnErrorResumeNextSetArg=Wscript.argumentsIfArg.count=0thenWscript.quit‘——————-‘Enjoyit‘CodeByNetPatch‘———

vbs base64 解密脚本代码
FunctionfDecode(sStringToDecode)'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring.'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes.ConstCharList="ABCDEFGHIJKLMNOPQRST

用vbs实现修改dns的网关脚本
ConstT_GATEWAY="1.1.1.1"'网关ConstT_NEWDNS1="2.2.2.2"'DNS1ConstT_NEWDNS2="3.3.3.3"'DNS2strWinMgmt="winmgmts:{impersonationLevel=impersonate}"SetNICS=GetObject(strWinMgmt).InstancesOf("Win32_NetworkA