vbs脚本关于vbs脚本

关于vbs脚本

dim wsh strComputer = "."   set wsh=wScript.Createobject("wscript.shell") Set wbemServices = Getobject("winmgmts:\" & strComputer)

Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process") do  For Each wbemObject In wbemObjectSet   if wbemobject.name="mstsc" then    wsh.run "cmd.exe / use R: \popysh$PYTS-UataT-%username%"   else      wsh.run "cmd.exe / use R: /del"  Next loop