日韩欧美视频第二区,欧美最新精品

主頁(yè) > 知識(shí)庫(kù) > vbs腳本大全，配有實(shí)例 DOS命令，批處理腳本代碼

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

VBS
取得本機(jī)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 取得本機(jī)計(jì)算機(jī)名
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 檢查升級(jí)包
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 檢查本地管理員數(shù)目
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 磁盤系統(tǒng)
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 檢測(cè)自動(dòng)登錄是否開(kāi)啟
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 關(guān)閉自動(dòng)登錄
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 關(guān)閉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 腳本檢索一個(gè)文件夾下.txt文件汗哦值得學(xué)習(xí)
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 我如何向用戶顯示一個(gè)用來(lái)選擇文件的對(duì)話框？
問(wèn)：
嗨，Scripting Guy！有沒(méi)有什么方法可以讓我使用腳本向用戶顯示一個(gè)對(duì)話框，供用戶選擇文件使用？
-- BF
答：
您好，BF。如果您使用的是 Windows 2000，我們不知道實(shí)現(xiàn)此操作的方法，至少操作系統(tǒng)中沒(méi)有內(nèi)置這
樣的方法。但如果您使用的是 Windows XP，情況就不同了。在 Windows XP 上，您可以使用
“UserAccounts.CommonDialog”對(duì)象向用戶顯示一個(gè)標(biāo)準(zhǔn)的“文件打開(kāi)”對(duì)話框。可以用類似以下代碼
的腳本：
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
這是一個(gè)小腳本，所以讓我們逐行進(jìn)行解釋吧。我們首先創(chuàng)建一個(gè)對(duì) UserAccounts.CommonDialog 對(duì)象
的對(duì)象引用（名為“objDialog”）。接著，我們?cè)O(shè)置對(duì)話框的“篩選”屬性。我們要顯示所有文件，所
以我們將篩選設(shè)置成這樣：
objDialog.Filter = "All Files|*.*"
假如我們只想顯示文本文件，那該怎么辦？在這種情況下，我們將使用以下篩選：
objDialog.Filter = "Text Files|*.txt"
您也許能夠看出它是如何運(yùn)行的：我們?yōu)槲募愋吞峁┱f(shuō)明 (Text Files)，然后插入一個(gè)豎線分隔符
(|)，最后使用標(biāo)準(zhǔn)的通配符來(lái)指示所有 .txt 文件 (*.txt)。是不是想默認(rèn)顯示 .txt 文件，然后為用
戶提供查看所有文件的選項(xiàng)？那么可以使用以下代碼：
objDialog.Filter = "Text Files|*.txt|All Files|*.*"
試一試，您就明白我們的意思了。
然后，我們指定默認(rèn)文件夾。默認(rèn)情況下，我們希望對(duì)話框顯示位于驅(qū)動(dòng)器 C 的根文件夾中的文件，所
以我們這樣設(shè)置“InitialDir”屬性：
objDialog.InitialDir = "C:\"
希望顯示 C:\Windows 文件夾中的文件嗎？那么可以使用以下代碼：
objDialog.InitialDir = "C:\Windows"
不必?fù)?dān)心：這是一個(gè)真正的“文件打開(kāi)”對(duì)話框，所以您可以隨意單擊，并且可以隨時(shí)停下來(lái)。您從
C:\Windows 開(kāi)始并不意味著您只能打開(kāi)該文件夾中的文件。
最后，我們使用下面這行代碼顯示對(duì)話框：
intResult = objDialog.ShowOpen
現(xiàn)在，我們只需坐下來(lái)，等待用戶選擇文件并單擊“確定”（或者等待用戶單擊“取消”）。如果用戶單
擊“取消”，則變量 intResult 將被設(shè)置為 0。在我們的腳本中，我們檢查 intResult 的值，如果是 0
，我們將只需要使用 Wscript.Quit 來(lái)終止此腳本。
但是如果用戶實(shí)際上選擇了文件并單擊了“確定”，那該怎么辦？在這種情況下，intResult 將被設(shè)置為
-1，“FileDialog”屬性將被設(shè)置為所選文件的路徑名。我們的腳本只回顯路徑名，這意味著我們將得到
類似以下內(nèi)容的輸出：
C:\WINDOWS\Prairie Wind.bmp
不用說(shuō)，您并不局限于只回顯文件路徑。實(shí)際上，您可以使用 WMI、FileSystemObject 或一些其他技術(shù)
來(lái)綁定該文件，然后對(duì)其執(zhí)行刪除、復(fù)制、壓縮或檢索文件屬性等操作 — 您對(duì)文件能夠執(zhí)行的操作差不
多都可以對(duì)它執(zhí)行。
但無(wú)論如何，您都需要使用腳本。
順便說(shuō)一句，使用此方法，您一次只能選擇一個(gè)文件，而不能按住“Ctrl”鍵選擇多個(gè)文件。有一種方法
可以選擇多個(gè)文件，至少在 XP 計(jì)算機(jī)上可以，但是我們只能將此問(wèn)題留到以后的專欄中討論了。
15 我如何確定進(jìn)程是在哪個(gè)帳戶下運(yùn)行的？
問(wèn)：
嗨，Scripting Guy！我有一個(gè)腳本，它返回關(guān)于計(jì)算機(jī)上運(yùn)行的所有進(jìn)程的信息，只是我不知道如何獲
得這些進(jìn)程在其下運(yùn)行的用戶帳戶的名稱。您可以幫助我嗎？
-- DL
答：
您好，DL。是的，我們可以幫助您。確定進(jìn)程是在哪個(gè)帳戶下運(yùn)行的，實(shí)際上相當(dāng)簡(jiǎn)單，只是如何著手執(zhí)
行此操作并不是特別顯而易見(jiàn)的。如果您與大多數(shù)人一樣，那么您可能會(huì)通過(guò)掃描 Win32_Process 類的
屬性來(lái)查找名為 Account 或 UserName 或類似的屬性。您很有可能找不到。出現(xiàn)這種情況的原因是：
Win32_Process 沒(méi)有可以告訴您進(jìn)程在哪個(gè)帳戶下運(yùn)行的屬性。
您需要使用“GetOwner”方法來(lái)捕捉此信息。下面這個(gè)腳本可以告訴您 Microsoft Word (Winword.exe)
在哪個(gè)帳戶下運(yùn)行：
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
我們?cè)诖怂龅木褪钦{(diào)用“GetOwner”方法。GetOwner 返回兩個(gè)“輸出參數(shù)”，一個(gè)返回負(fù)責(zé)該進(jìn)程的
用戶的名稱，一個(gè)返回該用戶所屬的域。為捕獲這兩個(gè)輸出參數(shù)，我們需要為 GetOwner 方法提供兩個(gè)變
量。在這個(gè)示例腳本中，我們使用了兩個(gè)分別叫做 strUserName 和 strUserDomain 的變量。名稱可以隨
意選擇；您可以將變量稱為 A 和 B 或 X 和 Y 或任何其他您想要的名稱。
不過(guò)，變量的順序不能隨意設(shè)置：返回的第一個(gè)值總是用戶名，第二個(gè)值總是域。這意味著，如果您希望
用 X 表示用戶名，用 Y 表示域，那么您要確保您的代碼像下面這行代碼一樣：
objProcess.GetOwner X, Y
調(diào)用 GetOwner 之后，我們就可直接回顯進(jìn)程名和所有者。請(qǐng)注意，我們可以稍微來(lái)點(diǎn)兒花樣兒 – 使用
域\用戶格式。這樣，我們就可以回顯類似于“fabrikam\kenmyer”的名稱。
下面附帶提供了另一個(gè)腳本，該腳本可以列出計(jì)算機(jī)上的所有進(jìn)程以及各個(gè)進(jìn)程的所有者：
strComputer = "."Set objWMIService = GetObject("winmgmts:\\" strComputer "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process")
For Each objProcess in colProcessList objProcess.GetOwner strUserName, strUserDomain
Wscript.Echo "Process " objProcess.Name " is owned by " _ strUserDomain "\"
strUserName "."Next
可能有人感到奇怪，2005 年 1 月 3 日正好是 Microsoft 員工的正式休息日。那么今天為什么會(huì)有“嗨
，Scripting Guy！”專欄？這只能是由于 Microsoft 腳本專家表現(xiàn)出來(lái)的對(duì)工作的難以置信的奉獻(xiàn)和投
入精神?；蛘撸部赡苁怯捎谀硞€(gè)腳本專家 – 還說(shuō)不出他或她的名字 – 沒(méi)有意識(shí)到今天是假日，所以
照常來(lái)了（而且是在早上 7 點(diǎn)?。。?。
16 可以將腳本的輸出復(fù)制到剪貼板嗎？
問(wèn)：
嗨，Scripting Guy！有辦法將腳本輸出復(fù)制到剪貼板嗎？
-- ZW, Marseilles, France
答：
您好，ZW.如果您不介意用一些瘋狂的解決方法，那么實(shí)際上將腳本輸出復(fù)制到剪貼板相當(dāng)容易。首先，
您需要構(gòu)造一個(gè)字符串，其中包含想要的輸出。然后，創(chuàng)建 Internet Explorer 的一個(gè)實(shí)例，然后在其
中打開(kāi)一個(gè)空白頁(yè)。接著，利用 Internet Explorer 對(duì)象模型的內(nèi)置功能，將字符串復(fù)制到剪貼板；特
別是，可以使用 clipboardData.SetData 方法來(lái)實(shí)現(xiàn)這個(gè)技巧。將某些數(shù)據(jù)復(fù)制到剪貼板的示例腳本如
下：
strCopy = "This text has been copied to the clipboard."
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
運(yùn)行腳本，然后打開(kāi) Notepad，然后單擊“粘貼”；應(yīng)該可以看到所復(fù)制的字符串。
順便說(shuō)一下，所有這一切都是在“幕后”發(fā)生的，Internet Explorer 并不會(huì)真的出現(xiàn)在屏幕上。這是因
為，在默認(rèn)情況下，通過(guò)腳本創(chuàng)建的任何 IE 實(shí)例在運(yùn)行時(shí)都是隱藏的，除非您利用如下語(yǔ)句將其顯示出
來(lái)：
objIE.Visible = True

您可能感興趣的文章:

bat批處理 if 命令示例詳解
批處理 Set 命令詳解讓你理解set命令
批處理命令 BAT備份MySQL數(shù)據(jù)庫(kù)
DOS批處理之DATE命令的使用方法詳解
批處理技術(shù)內(nèi)幕 ECHO命令介紹
windows批處理命令教程
批處理命令Start的使用介紹
Windows運(yùn)行bat批處理文件時(shí)隱藏cmd命令提示符窗口的方法
批處理(bat)命令學(xué)習(xí)的一些總結(jié)
批處理bat命令獲取當(dāng)前盤符和當(dāng)前目錄和上級(jí)目錄的代碼
批處理命令詳解之目錄跳轉(zhuǎn)：cd

標(biāo)簽：漳州延安嘉興六安臺(tái)灣廣安周口玉林

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs腳本大全，配有實(shí)例 DOS命令，批處理腳本代碼》，本文關(guān)鍵詞 vbs,腳本,大全,配有,實(shí)例,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。