网吧专用各种脚本与文件(BAT,VBS,REG,TXT,RPT等等资料)
一：VBS篇1:设置IE代理
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", _
"10.1.2.3:1111","REG_SZ"
2:取消IE代理
Set oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", _
"00000000", "REG_DWORD"
3:验证计算机是否为全局编录服务器
strComputer = "atl-dc-01"
Const NTDSDSA_OPT_IS_GC = 1
Set objRootDSE = GetObject("LDAP://" & strComputer & "/rootDSE")
strDsServiceDN = objRootDSE.Get("dsServiceName")
Set objDsRoot= GetObject("LDAP://" & strComputer & "/" & strDsServiceDN)
intOptions = objDsRoot.Get("options")
If intOptions And NTDSDSA_OPT_IS_GC Then
WScript.Echo strComputer & " is a global catalog server."
Else
Wscript.Echo strComputer & " is not a global catalog server."
End If
4:网吧公告
dim objshell
Set objShell = CreateObject("Wscript.Shell")
intMessage = Msgbox("劲舞最新公告:延迟到4月21日凌晨4点开放！", _
vbYesNo, "联众网吧友情提示")
If intMessage = vbYes Then
objShell.Run"窗口化.exe",0
Else
objShell.Run("http://txwm.com/game.aspx")
End If
5:游戏公告
dim objshell
Set objShell = CreateObject("Wscript.Shell")
intMessage = Msgbox("点是进入游戏" & vbCrlf & "点否访问游戏更新信息" & vbCrlf & "点取消退出" & vbCrlf & "自定义",3 + 64, "联众网吧广告")
If intMessage = vbYes Then
objShell.Run"窗口化.exe",0
Else
End if
If intMessage = vbNo Then
objShell.Run("http://www.txwb.com/Article/testjs.htm")
Else
End if
If intMessage = vbCancel Then
End If
wscript.quit
太多了不在往下发放 那么 就打包下载呵呵你们要是感觉有用的话就下载 有没有只改子网掩码的阿？？？？？
页:
[1]