检测网维大师无盘超级用户并运行指定文件
有很多网管同行需要，有的时候背景桌面或者净网先锋等监管软件在超级用户下运行不方便。所以就写了一个方便大家。给大家做些解释。红色的代表非超级用户下执行的文件（与此VBS放同级目录）。蓝色的代表延时,1000=1秒。绿色的代表检测注册表路径。可以修改成检测锐起或者网众等其它无盘的。紫色的代表检测键值。这样就可以保证母盘是纯净的。以下代码存为.vbs运行即可！On Error Resume Next
Dim OperationRegistry,Value
Set OperationRegistry = CreateObject("Wscript.Shell")
Value = OperationRegistry.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\iCafe8\admin")
If (Value = 1) Then
Msgbox "当前为超级用户模式，不做任何动作直接退出。",4160,"www.lansedongli.com"
Else
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.Run "EnableAudio.exe",0,True
WScript.Sleep(4000)
Wsh.Run "jwxf.exe",0,True
Set Wsh=NoThing
WScript.quit
End If
Wscript.Quit 没钱路过没钱路过没钱路过
页:
[1]