9zhmke

当然可以了，参考本段(摘自 3DMAX9全自动注册 http://bbs.dp168.com/thread-79026-1-1.html):

FunctiOn NetWork(i)
'接收参数：0:关闭“本地连接”   1:打开“本地连接”   2:自动（关闭则打开；打开则关闭）
Const ssfCONTROLS = 3 
sConnectionName = "本地连接"
Set shellApp = createobject("shell.application") 
Set oControlPanel = shellApp.Namespace(ssfCONTROLS) 
Set oNetConnections = nothing 
for each folderitem in oControlPanel.items 
	If folderitem.name = "网络连接" Then Set oNetConnections = folderitem.getfolder: exit for 
next 
If oNetConnections is nothing Then msgbox "未找到网络连接文件夹":wscript.quit 
Set oLanConnectiOn = nothing 
for each folderitem in oNetConnections.items 
	If lcase(folderitem.name) = lcase(sConnectionName) Then Set oLanConnectiOn = folderitem: exit for 
next 
If oLanConnectiOn is nothing Then msgbox "未找到 '" & sConnectionName & "' item":wscript.quit 
bEnabled = true 
Set oEnableVerb = nothing 
Set oDisableVerb = nothing 
s = "Verbs: " & vbcrlf 
for each verb in oLanConnection.verbs 
	s = s & vbcrlf & verb.name 
	If verb.name = "启用(&A)" Then 	Set oEnableVerb = verb:bEnabled = false 
	If verb.name = "禁用(&B)" or verb.name = "停用(&B)" Then Set oDisableVerb = verb:End If
next 
If bEnabled and (i=0 or i=2) Then 
	oDisableVerb.DoIt 
Else 
	If bEnabled=0 and i>0 Then oEnableVerb.DoIt 
End If 
wscript.sleep 400 
End Function
复制代码

9zhmke

XP当然是可以实现的，玩程序得调试，不调试那叫定制程序