vbs脚本大全,配有实例 DOS命令

NL=NL & vbcrlf &
next
Wscript.Echo NL
14 我怎么向用户显示一个用来选择文件的对话框？
问：
嗨，Scripting Guy！有没有什么方法能让我使用脚本向用户显示一个对话框，供用户选择文件使用？
-- BF
答：
你好，BF。如果你使用的是 视窗系统 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这
strValueName = "AutoAdminLogon"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
10 检查Guest是否禁用
Set objNetwork = CreateObject("work")
strComputer = "."
Set objReg=GetObject("winmgmts:＼＼" & strComputer & "＼root＼default:StdRegProv")
strKeyPath = "Software＼Microsoft＼视窗系统 NT＼CurrentVersion＼WinLogon"
and Settings＼＼Administrator＼＼桌面＼＼’ AND Drive = ’E:’ AND Extension = ’txt’")
Wscript.Echo "Number of .txt files found: " & colFiles.Count
for each aa in colFiles
Wscript.Echo "Name: " &
Wscript.Echo "Path: " & objShare.Path
Wscript.Echo "Type: " & objShare.Type
Next
13 脚本检索一个目录下.txt文件 汗哦 值得学习
Else
objUser.AccountDisabled = True
objUser.SetInfo
Wscript.Echo "The Guest account has been disabled."
End If
12 检索本地共象
strComputer = "."
Else
Wscript.Echo "The Guest account is enabled."
End If
11 关闭Guest
Set objNetwork = CreateObject("work")
strComputer = puterName
objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:＼" intResult =
objDialog.ShowOpen
If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType =
3")
For Each objDisk in colDisks
Wscript.Echo "Disk drive: "& objDisk.DeviceID & " -- " & objDisk.FileSystem
Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each strAddress in IPConfig.IPAddress
Set objWMIService = GetObject("winmgmts:＼＼" & strComputer & "＼root＼cimv2")
Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
For each objShare in colShares
Next
8 检测自动登录是否开启
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg=GetObject("winmgmts:＼＼" & strComputer & "＼root＼default:StdRegProv")
WScript.Echo strAddress
Next
End If
Next
2 取得本机计算机名
strComputer = "."
Set objWMIService = GetObject("winmgmts:＼＼" & strComputer & "＼root＼cimv2")
样的方法。但如果你使用的是 视窗系统
“monDialog”对象向用户显示一个标准的“文件打开”对话框。能用类似以下代码
的脚本：
Set objDialog = CreateObject("monDialog")
strKeyPath = "Software＼Microsoft＼视窗系统 NT＼CurrentVersion＼WinLogon"
strValueName = "AutoAdminLogon"
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,dwValue
For Each objUser in objGroup.Members
Wscript.Echo
Next
7 磁盘系统
strComputer = "."
Set objWMIService = GetObject("winmgmts:＼＼" & strComputer & "＼root＼cimv2")
Next
5 检查 Hot Fix
strComputer = "."
Set objWMIService = GetObject("winmgmts:＼＼" & strComputer & "＼root＼cimv2")
Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering")
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is already disabled."
Set objWMIService = GetObject("winmgmts:＼＼.＼root＼cimv2")
Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = ’＼＼Documents
这是个小脚本，所以让我们逐行进行解释吧。我们首先创建一个对 monDialog 对象
的对象引用（名为“objDialog”）。接着，我们设置对话框的“筛选”属性。我们要显示所有文件，所
以我们将筛选设置成这样：
objDialog.Filter = "All Files|*.*"
strComputer = puterName
Set objUser = GetObject("WinNT://" & strComputer & "/Guest")
If objUser.AccountDisabled Then
Wscript.Echo "The Guest account is disabled."
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