lock workstation

来源:互联网 发布:软件之家 编辑:程序博客网 时间:2024/05/13 19:53

on error resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objWMIService = GetObject("winmgmts://" & WshNetwork.ComputerName & "/root/cimv2:Win32_Process")
error = objWMIService.Create("rundll32.exe user32.dll,LockWorkStation", null, null,intProcessID)
wScript.quit

原创粉丝点击