VBS和UAC如何實現(xiàn)帳戶控制-創(chuàng)新互聯(lián)

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

創(chuàng)新互聯(lián)主要業(yè)務有網(wǎng)站營銷策劃、做網(wǎng)站、成都網(wǎng)站制作、微信公眾號開發(fā)、小程序開發(fā)、成都h5網(wǎng)站建設、程序開發(fā)等業(yè)務。一次合作終身朋友，是我們奉行的宗旨；我們不僅僅把客戶當客戶，還把客戶視為我們的合作伙伴，在開展業(yè)務的過程中，公司還積累了豐富的行業(yè)經(jīng)驗、網(wǎng)絡營銷推廣資源和合作伙伴關系資源，并逐漸建立起規(guī)范的客戶服務和保障體系。 

雖然很多人覺得這個功能很雞肋，但是以VBS的角度來看，UAC還是多多少少有點用的。在UAC的限制下，直接雙擊VBS文件只能在標準用戶權限下運行，很多事情是做不了的，比如復制自身到windows文件夾，或者寫入注冊表的開機啟動項等等。在XP下非常猖獗的暴風一號病毒，放到Win7下也就只能改改文件夾屬性為隱藏罷了，其他什么都做不了。當然了，一些不明真相的同學喜歡把UAC功能關掉，然后裝個叫什么359還是361的所謂安全軟件。我也不好多說什么，不然會遭到圍觀的。

雙擊VBS文件系統(tǒng)不會自動彈出UAC窗口是一個很大的問題，因為這大大限制了VBS的功能，很多事情都做不了，怎么解決呢？請看下面的代碼

代碼如下:

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ù)這個網(wǎng)站的代碼改寫的，判斷系統(tǒng)版本，如果是XP（普通用戶一般都是XP，如果是2003的話請自己改寫）則直接運行代碼，否則調用Shell.Application對象的ShellExecute方法，以管理員權限運行腳本。這樣，我們的VBS程序在Vista/Win7系統(tǒng)下也可以像在XP系統(tǒng)那樣為所欲為了。

感謝你能夠認真閱讀完這篇文章，希望小編分享的“VBS和UAC如何實現(xiàn)帳戶控制”這篇文章對大家有幫助，同時也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設公司，，關注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關知識等著你來學習!

分享文章：VBS和UAC如何實現(xiàn)帳戶控制-創(chuàng)新互聯(lián)
網(wǎng)站地址：http://muchs.cn/article36/dpcesg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、定制開發(fā)、網(wǎng)站制作、電子商務、網(wǎng)站策劃、做網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)