网吧专用各种脚本与文件(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



太多了不在往下发放 那么 就打包下载呵呵  你们要是感觉有用的话就下载

lfxfy

有没有只改子网掩码的阿？？？？？

zxc5831573