Database Search

TechHome

	User Sample Code
	WMI_Scripter

• !Microsofts WMI Object Browser!
• !WMI Reference!
• !WMI Security!
• Add Key Qualifier
• Backup Event Log
• Best Way to Read Event Log via WMI
• Check if WMI is Installed
• Clear Event Log via WMI
• Close All but One Instance
• Detect If monitor is in Standby Mode
• Detect Resume From Standby
• Detect Standby or Hibernation Event
• Detecting Local Network Connectivity and Speed
• Determine Laptop or Destop System Enclosure
• Determine Machine Type
• Determining If a Machine is a Domain Controller
• Directory Watcher
• Display Refresh Rate
• Error 1261 on ConnectServer line
• Extract SN from Bios using WMI
• fileSizeEX returns 0 for the Pagefile.sys file
• Get Asset Tag From Dell Computers
• Get Daylight Savings Time
• Get Default Printer
• Get ipv6 IP Address via Host Name
• Get Owner of a Process
• Get Physical Memory
• Get Process List via WMI
• Get Remote Logged in User
• Get Specific Events
• Get Status of Network Adapter
• Get Win32_DiskDrive Data with DeviceID
• Install MSI apps
• Is Computer WMI Enabled UDF
• Last Reboot Time
• List Active Network Adapters
• List All Monitors
• List Available Screen Resolutions
• List Installed Modems
• List Namespaces
• List Processes on a Remote Computer
• List Scheduled Tasks
• Manufacturer Model and Serial from WMI
• Modify DNS Entries
• Monitor Events
• Obtain the Name of the Domain to which the Computer Belongs
• PCMCIA Card Detection
• Physical Memory Inspection
• Ping Status
• Remote Number of Drives
• Remote Process UDFs
• Run an Application on a Remote Computer
• Search Eventlog Example
• Set Adapter Speed Duplex
• SetDNSSuffixSearchOrder MisMatched Type Error
• System Restore Point
• Total CPU Usage
• Using WMI List Applications
• Win32_EncryptableVolume
• Win32_SerialPort Information via WMI
• Windows NT Schedule Service - AT
• WMI - Processor Info
• WMI and Arrays
• WMI and Get IPAddress Property
• WMI and Remote Interactive Desktop Scripts
• WMI and WinPE
• WMI causing LLSMGR to start
• WMI ExecQuery
• WMI Get Fan Speed
• WMI Get MAC Address and NIC info
• WMI hangs
• WMI ObjectOpen Problem on Windows 95
• WMI Query Paths Need Double Backslashes
• WMI Related Resources
• WMI Scriptomatic
• wntGetCon using WMI
• WQL LIKE Operator

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Win32_SerialPort Information via WMI

 Keywords: serial com port wmi status

Locator = ObjectOpen("WbemScripting.SWbemLocator")
Service = Locator.ConnectServer()
Security = Service.Security_
Security.ImpersonationLevel = 3
Class = "Win32_SerialPort"
Instance = Service.InstancesOf(Class)
hEnum = ObjectCollectionOpen(Instance)
While 1
  Obj = ObjectCollectionNext(hEnum)
  If Obj == 0 Then Break
  deviceid = Obj.DeviceId
  name = Obj.Name
  availcode = Obj.Availability
  Switch availcode
	  case 1
	     availstr = "Other"
	  break
	  case 2
	     availstr = "Unknown"
	  break
	  case 3
	     availstr = "Running/Full Power" 
	  break
	  case 4
	     availstr = "Warning"
	  break
	  case 5
	     availstr = "In Test"
	  break
	  case 6
	     availstr = "Not Applicable"
	  break
	  case 7
	     availstr = "Power Off"
	  break
	  case 8
	     availstr = "Off Line"
	  break
	  case 9
	     availstr = "Off Duty"
	  break
	  case 10
	     availstr = "Degraded"
	  break
	  case 11
	     availstr = "Not Installed"
	  break
	  case 12
	     availstr = "Install Error"
	  break
	  case 13
	     availstr = "Power Save - Unknown"
	  break
	  case 14
	     availstr = "Power Save - Low Power Mode"
	  break
	  case 15
	     availstr = "Power Save - Standby"
	  break
	  case 16
	     availstr = "Power Cycle"
	  break
	  case 17
	     availstr = "Power Save - Warning"
	  break
	  case 18
	     availstr = "Paused"
	  break
	  case 19
	     availstr = "Not Ready"
	  break
	  case 20
	     availstr = "Not Configured"
	  break
	  case 21
	     availstr = "Quiesced"
	  break
	  EndSwitch
  
  statusinfo = Obj.StatusInfo
   Switch availcode
	  case 1
	     infostr = "Other"
	  break
	  case 2
	     infostr = "Unknown"
	  break
	  case 3
	     infostr = "Enabled" 
	  break
	  case 4
	     infostr = "Disabled"
	  break
	  case 5
	     infostr = "Not Applicable"
	  break
	EndSwitch

  status = Obj.Status

  title = StrCat(deviceid, " : ",name)
  msg = StrCat("Availability  = ", availstr,@CRLF,"StatusInfo = ",infostr,@CRLF,"Status = ",status)
  Message(title, msg)
EndWhile
ObjectCollectionClose(hEnum)
ObjectClose(Instance)
ObjectClose(Security)
ObjectClose(Service)
ObjectClose(Locator)

Exit

Article ID:   W16275

File Created: 2004:03:30:15:43:44

Last Updated: 2004:03:30:15:43:44