 ActiveXperts Network Monitor - Home page
 Download ActiveXperts Network Monitor 7.1 (7301 KB - .exe file)
Windows and Explorer Settings Scripts
Add “Command Prompt Here” to Windows Explorer
Add a Template to the Windows Explorer New Menu
List Environment Variables on a Computer
List Installed Administrative Tools
List Desktop Settings
List Path to the My Pictures Folders
List Start Menu Items
List Start Menu Program Groups
List Shortcuts on a Computer
Rename the My Computer Icon on the Local Computer
You can use any of the VBScript programs below in ActiveXperts Network Monitor.
Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
Adds a Command Prompt Here command to the Windows Explorer system menu. If a user selects Command Prompt Here from the system menu, a command window will be displayed, open to the same folder as the current Windows Explorer folder.
Set objShell = CreateObject("WScript.Shell")
objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
"cmd.exe /k cd " & chr(34) & "%1" & chr(34)
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "Command Prompt Here"
Demonstrates how to add VBScript Script File to the New context menu in Windows Explorer. Requires a script template named Template.vbs to be in the \Windows\System32\ShellExt folder (on Windows XP and Windows Server 2003), or in the \Winnt\ShellNew folder (Windows 2000).
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "HKCR\.VBS\ShellNew\FileName","template.vbs"
Uses WMI to return information about all the environment variables on a computer.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Environment")
For Each objItem in colItems
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "System Variable: " & objItem.SystemVariable
Wscript.Echo "User Name: " & objItem.UserName
Wscript.Echo "Variable Value: " & objItem.VariableValue
Next
Uses the Shell object to enumerate all the Administrative Tools installed on a computer.
Const ADMINISTRATIVE_TOOLS = &H2f&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objTools = objFolder.Items
For i = 0 to objTools.Count - 1
Wscript.Echo objTools.Item(i)
Next
Lists the current desktop settings on a computer.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Desktop")
For Each objItem in colItems
Wscript.Echo "Border Width: " & objItem.BorderWidth
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Cool Switch: " & objItem.CoolSwitch
Wscript.Echo "Cursor Blink Rate: " & objItem.CursorBlinkRate
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Drag Full Windows: " & objItem.DragFullWindows
Wscript.Echo "Grid Granularity: " & objItem.GridGranularity
Wscript.Echo "Icon Spacing: " & objItem.IconSpacing
Wscript.Echo "Icon Title Face Name: " & objItem.IconTitleFaceName
Wscript.Echo "Icon Title Size: " & objItem.IconTitleSize
Wscript.Echo "Icon Title Wrap: " & objItem.IconTitleWrap
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Pattern: " & objItem.Pattern
Wscript.Echo "Screen Saver Active: " & objItem.ScreenSaverActive
Wscript.Echo "Screen Saver Executable: " & _
objItem.ScreenSaverExecutable
Wscript.Echo "Screen Saver Secure: " & objItem.ScreenSaverSecure
Wscript.Echo "Screen Saver Timeout: " & objItem.ScreenSaverTimeout
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "Wallpaper: " & objItem.Wallpaper
Wscript.Echo "Wallpaper Stretched: " & objItem.WallpaperStretched
Wscript.Echo "Wallpaper Tiled: " & objItem.WallpaperTiled
Next
Uses the Shell object to return the path to the My Pictures folder.
Const MY_PICTURES = &H27&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_PICTURES)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Name & ": " & objFolderItem.Path
Returns a list of all the Start menu items found on a computer.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_LogicalProgramGroupItem")
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next
Retrieves information about all the Start menu program groups currently in use on a computer.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ProgramGroup")
For Each objItem in colItems
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Group Name: " & objItem.GroupName
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "User Name: " & objItem.UserName
Wscript.Echo
Next
Uses WMI to return a list of all the shortcuts on a computer, as well as such properties as the file name, creation date, and target for each shortcut.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ShortcutFile")
For Each objItem in colItems
strCreationDate = WMIDateStringToDate(objItem.CreationDate)
Wscript.Echo "Creation Date: " & strCreationDate
Wscript.Echo "Drive: " & objItem.Drive
Wscript.Echo "Eight Dot Three File Name: " & _
objItem.EightDotThreeFileName
Wscript.Echo "Extension: " & objItem.Extension
Wscript.Echo "File Name: " & objItem.FileName
Wscript.Echo "File Size: " & objItem.FileSize
Wscript.Echo "File Type: " & objItem.FileType
Wscript.Echo "File System Name: " & objItem.FSName
Wscript.Echo "Hidden: " & objItem.Hidden
strLastAccessed = WMIDateStringToDate(objItem.LastAccessed)
Wscript.Echo "Last Accessed: " & strLastAccessed
strLastModified = WMIDateStringToDate(objItem.LastModified)
Wscript.Echo "Last Modified: " & strLastModified
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "Target: " & objItem.Target
Next
Function WMIDateStringToDate(dtmDate)
WMIDateStringToDate = CDate(Mid(dtmDate, 5, 2) & "/" & _
Mid(dtmDate, 7, 2) & "/" & Left(dtmDate, 4) _
& " " & Mid (dtmDate, 9, 2) & ":" & _
Mid(dtmDate, 11, 2) & ":" & Mid(dtmDate, _
13, 2))
End Function
Renames the My Computer icon on the local computer, giving it the same name as the computer itself.
Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
objComputerName = objNetwork.ComputerName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = objComputerName
|
