Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const ssfCONTROLS = 3
- sConnectionName = "本地连接"
- sEnableVerb = "启用(&A)"
- sDisableVerb = "停用(&B)"
- Set objShell = CreateObject("Wscript.Shell")
- 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
- end if
- next
- if oNetConnections is nothing then
- wscript.quit
- end if
- set oLanConnection = nothing
- for each folderitem in oNetConnections.items
- if lcase(folderitem.name) = lcase(sConnectionName) then
- set oLanConnection = folderitem: exit for
- end if
- next
- if oLanConnection is nothing then
- wscript.quit
- end if
- 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 = sEnableVerb then
- set oEnableVerb = verb
- bEnabled = false
- end if
- if verb.name = sDisableVerb then
- set oDisableVerb = verb
- iReturnCode=objShell.Run("rundll32.exe user32.dll,LockWorkStation",0,TRUE)
- end if
- next
- if bEnabled then
- oDisableVerb.DoIt
- else
- oEnableVerb.DoIt
- end if
- wscript.sleep 1000
Add Comment
Please, Sign In to add comment