摘要:
Set objShell = CreateObject("WScript.Shell") strCommondLine = "powershell.exe" app = objShell.Run(strCommondLine) objShell.AppActivate app WScript.Sle 阅读全文
posted @ 2016-07-20 23:21
Zohar
阅读(271)
评论(0)
推荐(0)
摘要:
Dim W3SVC,WebServer,Bindings,ALLBindingInfo,fs,TextFilePath,WebSiteName On Error Resume Next Err.Clear Set fs = WScript.CreateObject("Scripting.FileSy 阅读全文
posted @ 2016-07-20 18:39
Zohar
阅读(365)
评论(0)
推荐(0)

浙公网安备 33010602011771号