Zohar的博客

Dim objShell,strCommonLine,strCommond1,strCommond2 Set objShell = CreateObject(WScript.Shell) strCommonLine = "powershell.exe" app = objShell.Run(strCommonLine) objShell.AppActivate app WScript.S

Set objShell = CreateObject("WScript.Shell") strCommondLine = "powershell.exe" app = objShell.Run(strCommondLine) objShell.AppActivate app WScript.Sleep 100 strCommond = "Import-Module ServerMana

Dim W3SVC,WebServer,Bindings,ALLBindingInfo,fs,TextFilePath,WebSiteName On Error Resume Next Err.Clear Set fs = WScript.CreateObject("Scripting.FileSystemObject") TextFilePath = fs.GetFile(WScript