這篇文章主要介紹了VBS和UAC如何實(shí)現(xiàn)帳戶(hù)控制,具有一定借鑒價(jià)值,感興趣的朋友可以參考下,希望大家閱讀完這篇文章之后大有收獲,下面讓小編帶著大家一起了解一下。

雖然很多人覺(jué)得這個(gè)功能很雞肋,但是以VBS的角度來(lái)看,UAC還是多多少少有點(diǎn)用的。在UAC的限制下,直接雙擊VBS文件只能在標(biāo)準(zhǔn)用戶(hù)權(quán)限下運(yùn)行,很多事情是做不了的,比如復(fù)制自身到windows文件夾,或者寫(xiě)入注冊(cè)表的開(kāi)機(jī)啟動(dòng)項(xiàng)等等。在XP下非常猖獗的暴風(fēng)一號(hào)病毒,放到Win7下也就只能改改文件夾屬性為隱藏罷了,其他什么都做不了。當(dāng)然了,一些不明真相的同學(xué)喜歡把UAC功能關(guān)掉,然后裝個(gè)叫什么359還是361的所謂安全軟件。我也不好多說(shuō)什么,不然會(huì)遭到圍觀的。
雙擊VBS文件系統(tǒng)不會(huì)自動(dòng)彈出UAC窗口是一個(gè)很大的問(wèn)題,因?yàn)檫@大大限制了VBS的功能,很多事情都做不了,怎么解決呢?請(qǐng)看下面的代碼
代碼如下:
For Each objOS in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
If InStr(objOS.Caption,"XP") = 0 Then
If WScript.Arguments.length = 0 Then
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "wscript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
Call Main()
End If
Else
Call Main()
End If
Next
Sub Main()
MsgBox "UAC demon"
End Sub
這是我根據(jù)這個(gè)網(wǎng)站的代碼改寫(xiě)的,判斷系統(tǒng)版本,如果是XP(普通用戶(hù)一般都是XP,如果是2003的話請(qǐng)自己改寫(xiě))則直接運(yùn)行代碼,否則調(diào)用Shell.Application對(duì)象的ShellExecute方法,以管理員權(quán)限運(yùn)行腳本。這樣,我們的VBS程序在Vista/Win7系統(tǒng)下也可以像在XP系統(tǒng)那樣為所欲為了。
感謝你能夠認(rèn)真閱讀完這篇文章,希望小編分享的“VBS和UAC如何實(shí)現(xiàn)帳戶(hù)控制”這篇文章對(duì)大家有幫助,同時(shí)也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司,,關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道,更多相關(guān)知識(shí)等著你來(lái)學(xué)習(xí)!
分享文章:VBS和UAC如何實(shí)現(xiàn)帳戶(hù)控制-創(chuàng)新互聯(lián)
網(wǎng)站地址:http://www.chinadenli.net/article36/dpcesg.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供小程序開(kāi)發(fā)、定制開(kāi)發(fā)、網(wǎng)站制作、電子商務(wù)、網(wǎng)站策劃、做網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容