亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

vbs腳本大全，配有實例 DOS命令，批處理腳本代碼

2020-07-26 12:02:41

字體：大中小

來源：轉載

供稿：網友

VBS
取得本機IP
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each strAddress in IPConfig.IPAddress
WScript.Echo strAddress
Next
End If
Next
2 取得本機計算機名
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
Wscript.Echo objComputer.Name
Next
4 檢查升級包
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." &
objOperatingSystem.ServicePackMinorVersion
Next
5 檢查 Hot Fix
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")
For Each objQuickFix in colQuickFixes
Wscript.Echo "Description: " & objQuickFix.Description
Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
Next
6 檢查本地管理員數目
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")
For Each objUser in objGroup.Members
Wscript.Echo objUser.Name
Next
7 磁盤系統
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType =
3")
For Each objDisk in colDisks
Wscript.Echo "Disk drive: "& objDisk.DeviceID & " -- " & objDisk.FileSystem
Next
8 檢測自動登錄是否開啟
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
strKeyPath = "Software/Microsoft/Windows NT/CurrentVersion/WinLogon"
strValueName = "AutoAdminLogon"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue
If dwValue = 1 Then
Wscript.Echo "Auto logon is enabled."
Else
Wscript.Echo "Auto logon is disabled."
End If
9 關閉自動登錄
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
strKeyPath = "Software/Microsoft/Windows NT/CurrentVersion/WinLogon"
strValueName = "AutoAdminLogon"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
10 檢查Guest是否禁用
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is disabled."
Else
Wscript.Echo "The Guest account is enabled."
End If
11 關閉Guest
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is already disabled."
Else
objUser.AccountDisabled = True
objUser.SetInfo
Wscript.Echo "The Guest account has been disabled."
End If
12 檢索本地共象
strComputer = "."
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Wscript.Echo "Name: " & objShare.Name
Wscript.Echo "Path: " & objShare.Path
Wscript.Echo "Type: " & objShare.Type
Next
13 腳本檢索一個文件夾下.txt文件汗哦值得學習
Set objWMIService = GetObject("winmgmts://./root/cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '//Documents
and Settings//Administrator//桌面//' AND Drive = 'E:' AND Extension = 'txt'")
Wscript.Echo "Number of .txt files found: " & colFiles.Count
for each aa in colFiles
NL=NL & vbcrlf & aa.name
next
Wscript.Echo NL
14 我如何向用戶顯示一個用來選擇文件的對話框？
問：
嗨，Scripting Guy！有沒有什么方法可以讓我使用腳本向用戶顯示一個對話框，供用戶選擇文件使用？
-- BF
答：
您好，BF。如果您使用的是 Windows 2000，我們不知道實現此操作的方法，至少操作系統中沒有內置這
樣的方法。但如果您使用的是 Windows XP，情況就不同了。在 Windows XP 上，您可以使用
“UserAccounts.CommonDialog”對象向用戶顯示一個標準的“文件打開”對話框?？梢杂妙愃埔韵麓a
的腳本：
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:/" intResult =
objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If
這是一個小腳本，所以讓我們逐行進行解釋吧。我們首先創建一個對 UserAccounts.CommonDialog 對象
的對象引用（名為“objDialog”）。接著，我們設置對話框的“篩選”屬性。我們要顯示所有文件，所
以我們將篩選設置成這樣：
objDialog.Filter = "All Files|*.*"
假如我們只想顯示文本文件，那該怎么辦？在這種情況下，我們將使用以下篩選：
objDialog.Filter = "Text Files|*.txt"
您也許能夠看出它是如何運行的：我們為文件類型提供說明 (Text Files)，然后插入一個豎線分隔符
(|)，最后使用標準的通配符來指示所有 .txt 文件 (*.txt)。是不是想默認顯示 .txt 文件，然后為用
戶提供查看所有文件的選項？那么可以使用以下代碼：
objDialog.Filter = "Text Files|*.txt|All Files|*.*"
試一試，您就明白我們的意思了。
然后，我們指定默認文件夾。默認情況下，我們希望對話框顯示位于驅動器 C 的根文件夾中的文件，所
以我們這樣設置“InitialDir”屬性：
objDialog.InitialDir = "C:/"
希望顯示 C:/Windows 文件夾中的文件嗎？那么可以使用以下代碼：
objDialog.InitialDir = "C:/Windows"
不必擔心：這是一個真正的“文件打開”對話框，所以您可以隨意單擊，并且可以隨時停下來。您從
C:/Windows 開始并不意味著您只能打開該文件夾中的文件。
最后，我們使用下面這行代碼顯示對話框：
intResult = objDialog.ShowOpen
現在，我們只需坐下來，等待用戶選擇文件并單擊“確定”（或者等待用戶單擊“取消”）。如果用戶單
擊“取消”，則變量 intResult 將被設置為 0。在我們的腳本中，我們檢查 intResult 的值，如果是 0
，我們將只需要使用 Wscript.Quit 來終止此腳本。
但是如果用戶實際上選擇了文件并單擊了“確定”，那該怎么辦？在這種情況下，intResult 將被設置為
-1，“FileDialog”屬性將被設置為所選文件的路徑名。我們的腳本只回顯路徑名，這意味著我們將得到
類似以下內容的輸出：
C:/WINDOWS/Prairie Wind.bmp
不用說，您并不局限于只回顯文件路徑。實際上，您可以使用 WMI、FileSystemObject 或一些其他技術
來綁定該文件，然后對其執行刪除、復制、壓縮或檢索文件屬性等操作 ― 您對文件能夠執行的操作差不
多都可以對它執行。
但無論如何，您都需要使用腳本。
順便說一句，使用此方法，您一次只能選擇一個文件，而不能按住“Ctrl”鍵選擇多個文件。有一種方法
可以選擇多個文件，至少在 XP 計算機上可以，但是我們只能將此問題留到以后的專欄中討論了。
15 我如何確定進程是在哪個帳戶下運行的？
問：
嗨，Scripting Guy！我有一個腳本，它返回關于計算機上運行的所有進程的信息，只是我不知道如何獲
得這些進程在其下運行的用戶帳戶的名稱。您可以幫助我嗎？
-- DL
答：
您好，DL。是的，我們可以幫助您。確定進程是在哪個帳戶下運行的，實際上相當簡單，只是如何著手執
行此操作并不是特別顯而易見的。如果您與大多數人一樣，那么您可能會通過掃描 Win32_Process 類的
屬性來查找名為 Account 或 UserName 或類似的屬性。您很有可能找不到。出現這種情況的原因是：
Win32_Process 沒有可以告訴您進程在哪個帳戶下運行的屬性。
您需要使用“GetOwner”方法來捕捉此信息。下面這個腳本可以告訴您 Microsoft Word (Winword.exe)
在哪個帳戶下運行：
strComputer = "."Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name =
'Winword.exe'")
For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain
Wscript.Echo "Process " & objProcess.Name & " is owned by " _ & strUserDomain & "/" &
strUserName & "."Next
我們最感興趣的是下面這行代碼：
objProcess.GetOwner strNameOfUser, strUserDomain
我們在此所做的就是調用“GetOwner”方法。GetOwner 返回兩個“輸出參數”，一個返回負責該進程的
用戶的名稱，一個返回該用戶所屬的域。為捕獲這兩個輸出參數，我們需要為 GetOwner 方法提供兩個變
量。在這個示例腳本中，我們使用了兩個分別叫做 strUserName 和 strUserDomain 的變量。名稱可以隨
意選擇；您可以將變量稱為 A 和 B 或 X 和 Y 或任何其他您想要的名稱。
不過，變量的順序不能隨意設置：返回的第一個值總是用戶名，第二個值總是域。這意味著，如果您希望
用 X 表示用戶名，用 Y 表示域，那么您要確保您的代碼像下面這行代碼一樣：
objProcess.GetOwner X, Y
調用 GetOwner 之后，我們就可直接回顯進程名和所有者。請注意，我們可以稍微來點兒花樣兒亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

国产精品高清免费在线观看| 亚洲少妇中文在线| 97精品一区二区视频在线观看| 国产成人精品一区二区三区| 亚洲精品美女在线| 欧美日韩第一页| 91精品国产91| 国产91色在线播放| 欧美午夜激情视频| 国产综合色香蕉精品| 欧美在线视频免费| 久久青草精品视频免费观看| 国产精品久久久久久久久久99| 日韩性生活视频| 国产精品视频免费在线观看| 91久久精品在线| 国产精品国产三级国产aⅴ9色| 亚洲国产日韩欧美在线99| 91在线观看免费| 色悠悠久久88| 富二代精品短视频| 久久91精品国产91久久跳| 伊人伊成久久人综合网站| 久久久久久久香蕉网| 亚洲第一级黄色片| 久久久噜噜噜久久久| 国产精品私拍pans大尺度在线| 精品久久久久久久久国产字幕| 亚洲人成网站免费播放| 亚洲欧洲视频在线| 日本老师69xxx| 国产精品久久久久久一区二区| 国产精品国产三级国产aⅴ浪潮| 成人av在线天堂| 成人精品视频99在线观看免费| 欧美日韩午夜剧场| 欧美日韩电影在线观看| 欧美精品福利在线| 在线播放国产一区二区三区| 欧美夫妻性生活视频| 久久久精品中文字幕| 成人欧美在线视频| 久久久精品电影| 国产国语刺激对白av不卡| 岛国视频午夜一区免费在线观看| www.亚洲一二| 亚洲va男人天堂| 久久久亚洲国产天美传媒修理工| 日韩一区av在线| 欧美另类暴力丝袜| 欧美精品电影免费在线观看| 日韩影视在线观看| 亚洲第一精品久久忘忧草社区| 国产精品青青在线观看爽香蕉| 91久久精品久久国产性色也91| 亚洲精品国产suv| 国产精品99导航| 日本不卡免费高清视频| 日韩美女视频中文字幕| 欧美肥老妇视频| 亚洲视频一区二区三区| 欧美精品激情在线观看| 亚洲人成网站在线播| 国产99在线|中文| 91九色视频在线| 深夜福利一区二区| 国产精品久久久精品| 久久久成人的性感天堂| 亚洲欧洲偷拍精品| 久久久亚洲成人| 国产精品高清在线观看| 欧美日韩成人精品| 国产成人精品久久二区二区| 清纯唯美亚洲激情| 国产精品一区二区三区免费视频| 久久夜色精品国产亚洲aⅴ| 欧美国产日产韩国视频| 午夜精品久久久久久久99黑人| 亚洲综合在线播放| 久久久精品美女| 国产偷亚洲偷欧美偷精品| 欧美一级淫片aaaaaaa视频| 日韩精品在线观看一区| 国产亚洲欧美日韩精品| 91tv亚洲精品香蕉国产一区7ujn| 久久精品久久精品亚洲人| 日韩小视频在线| 亚洲精品一区二区在线| 日韩精品视频在线观看免费| 精品福利在线观看| 国产精品色午夜在线观看| 欧美日韩在线一区| 久久99久久亚洲国产| 日韩专区在线播放| 亚洲女人被黑人巨大进入| 91在线视频免费| 乱亲女秽乱长久久久| 国产精品中文字幕久久久| 成人午夜高潮视频| 欧美精品一二区| 成人福利网站在线观看11| 亚洲视频欧美视频| 性色av一区二区三区红粉影视| 亚洲精品一区二区网址| 亚洲免费视频观看| 日韩欧美999| 亚洲一级免费视频| 精品中文字幕乱| 伊人一区二区三区久久精品| 亚洲电影在线看| 欧美一级淫片videoshd| 91网站免费观看| 色七七影院综合| 日韩欧美aⅴ综合网站发布| 欧美精品第一页在线播放| 亚洲成人a级网| 久久久www成人免费精品| 亚洲第一天堂无码专区| 日韩久久免费视频| 久久久精品国产亚洲| 日韩精品久久久久久久玫瑰园| 日韩中文视频免费在线观看| 91视频国产精品| 97视频在线观看免费高清完整版在线观看| 国产精品久久久久久婷婷天堂| 日韩精品在线免费观看| 久久av中文字幕| 狠狠色狠狠色综合日日五| 中文字幕在线看视频国产欧美在线看完整| 成人伊人精品色xxxx视频| 欧美日韩中文字幕在线视频| 久久久久久一区二区三区| 青青草原一区二区| 亚洲精品免费一区二区三区| 麻豆乱码国产一区二区三区| 最近的2019中文字幕免费一页| 国产剧情久久久久久| 91国产精品视频在线| 91免费观看网站| 亚洲欧美制服中文字幕| 亚洲激情在线观看视频免费| 91精品国产91久久| 中文字幕亚洲精品| 亚洲免费视频网站| 国产91在线播放精品91| 亚洲精品www久久久久久广东| 日韩av电影手机在线| 午夜欧美大片免费观看| 亚洲美女av在线播放| 精品久久久久久中文字幕| 欧美国产视频一区二区| 成人久久久久久| 91av福利视频| 成人福利网站在线观看| xvideos亚洲| 亚洲国产精品人人爽夜夜爽| 九九九热精品免费视频观看网站| 国产成人精品日本亚洲| 57pao成人国产永久免费| 久久免费高清视频| 亚洲欧美国产视频| 欧美电影电视剧在线观看| 久久久久中文字幕2018| 宅男66日本亚洲欧美视频|