vbs ShellExecute杩愯澶栭儴绋嬪簭鏃跺浣曞垽鏂閮ㄧ▼搴忔墽琛屾垚鍔熶笌鍚? target= |
|
闇�瑕乿bs鎵ц涓�浜涘懡浠?姣斿 ""uwfmgr filter enable"" (缁熶竴鍐欏叆绛涢�夊櫒), 浣嗘槸杩欎釜uwfmgr.exe闇�瑕佺鐞嗗憳鏉冮檺鎵嶈兘杩愯鐩稿叧鍛戒护 Set sst = CreateObject("Shell.Application")
Call sst.ShellExecute("uwfmgr","filter enable", ,"runas",0)杩欐牱鍙互浠ョ鐞嗗憳韬唤杩愯鍛戒护, 浣嗘槸鎴戞�庝箞鎵嶈兘鍒ゆ柇uwfmgr鎵ц鏄垚鍔熻繕鏄け璐ョ殑? (绠＄悊鍛榗md杩愯鍛戒护浼氭湁杩斿洖鍊? 鍘熸潵鎴戞墽琛屼竴浜沜md鍛戒护閮芥槸鐢?/p> intReturn = WScript.CreateObject("wscript.shell").Run("xxxxxx",1,true) 閫氳繃鍒ゆ柇intReturn鏄惁涓?鏉ュ垽鏂懡浠ゆ墽琛屾垚鍔熷け璐? 浣嗘槸杩欎釜涓嶈兘鎵ц闇�瑕佺鐞嗗憳鏉冮檺鐨勫懡浠? 鏈夋病鏈夊姙娉曡Run鑳戒互绠＄悊鍛樿繍琛屽懡浠? 濡備綍闅愯棌杩愯Setup.bat鏂囦欢'浠ョ鐞嗗憳韬唤杩愯绋嬪簭鐨勫懡浠dmin.vbs
Set objWMIServices = GetObject("winmgmts:{impersonationLevel=impersonate}!\.
ootcimv2")
Set objWbemObjectSet = objWMIServices.ExecQuery(_
"SELECT * FROM Win32_Process WHERE " &_
"ExecutablePath='" & Replace(WScript.FullName,"","\") & "' and " & _
"CommandLine LIKE '%" & WScript.ScriptName & "%'")
for each objWbemObject in objWbemObjectSet
cmdline = objWbemObject.CommandLine
next
if WScript.Arguments.Count then
file = WScript.Arguments(0)
if file="/?" then
call ShowHelp()
WScript.Quit
end if
Set RegEx = new RegExp
RegEx.IgnoreCase = true
RegEx.Global = true
RegEx.Pattern = "\|/|||(|)|[|]|{|}|^|$|.|*|?|+"
temp1 = RegEx.Replace(WScript.ScriptName, "$&")
temp2 = RegEx.Replace(file, "$&")
RegEx.Global = false
RegEx.Pattern = "^.*?" & temp1 & "[""s]*" & temp2 & """?s*"
args = RegEx.Replace(cmdline, "")
'WScript.Echo file, args
else
file = "Setup.bat"
'args = "/k cd /d """ & CreateObject("WScript.Shell").CurrentDirectory & Chr(34)
end if
'鏍稿績浠ｇ爜
Set sh = CreateObject("Shell.Application")
call sh.ShellExecute( file, args, , "runas" )
function ShowHelp()
dim HelpStr
HelpStr = "浠ョ鐞嗗憳韬唤杩愯绋嬪簭銆? & vbCrLf _
& vbCrLf _
& WScript.ScriptName & " [program] [parameters]..." & vbCrLf _
& vbCrLf _
& "program 瑕佽繍琛岀殑绋嬪簭" & vbCrLf _
& "parameters 浼犻�掔粰 program 鐨勫弬鏁? & vbCrLf _
& vbCrLf
WScript.Echo HelpStr
end function 鍒版杩欑瘒鍏充簬vbs ShellExecute杩愯澶栭儴绋嬪簭鏃跺浣曞垽鏂閮ㄧ▼搴忔墽琛屾垚鍔熶笌鍚︾殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧vbs ShellExecute杩愯澶栭儴绋嬪簭鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p> |
