' List System Locations



strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colOSItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objOSItem In colOSItems
  WScript.Echo "Boot Device: " & objOSItem.BootDevice
  WScript.Echo "System Device: " & objOSItem.SystemDevice
  WScript.Echo "System Drive: " & objOSItem.SystemDrive
  WScript.Echo "Windows Directory: " & objOSItem.WindowsDirectory
  WScript.Echo "System Directory: " & objOSItem.SystemDirectory
Next
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft