VBScript! Removing COM1 from Device Manager
-
Hi, I just want to uninstall COM1 or COM2 Commination Device. I can easily do it by right clicking COM2 and click COM2 from Device Manager. But i want to do it with VB Script. I can the read the properties with the code below. But i want to remove the port???? [CODE] On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort",,48) For Each objItem in colItems Wscript.Echo "Binary: " & objItem.Binary Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Maximum Baud Rate: " & objItem.MaxBaudRate Wscript.Echo "Maximum Input Buffer Size: " & objItem.MaximumInputBufferSize Wscript.Echo "Maximum Output Buffer Size: " & objItem.MaximumOutputBufferSize Wscript.Echo "Name: " & objItem.Name Wscript.Echo "OS Auto Discovered: " & objItem.OSAutoDiscovered Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Wscript.Echo "Provider Type: " & objItem.ProviderType Wscript.Echo "Settable Baud Rate: " & objItem.SettableBaudRate Wscript.Echo "Settable Data Bits: " & objItem.SettableDataBits Wscript.Echo "Settable Flow Control: " & objItem.SettableFlowControl Wscript.Echo "Settable Parity: " & objItem.SettableParity Wscript.Echo "Settable Parity Check: " & objItem.SettableParityCheck Wscript.Echo "Settable RLSD: " & objItem.SettableRLSD Wscript.Echo "Settable Stop Bits: " & objItem.SettableStopBits Wscript.Echo "Supports 16-Bit Mode: " & objItem.Supports16BitMode Wscript.Echo "Supports DTRDSR: " & objItem.SupportsDTRDSR Wscript.Echo "Supports Elapsed Timeouts: " & objItem.SupportsElapsedTimeouts Wscript.Echo "Supports Int Timeouts: " & objItem.SupportsIntTimeouts Wscript.Echo "Supports Parity Check: " & objItem.SupportsParityCheck Wscript.Echo "Supports RLSD: " & objItem.SupportsRLSD Wscript.Echo "Supports RTSCTS: " & objItem.SupportsRTSCTS Wscript.Echo "Supports Special Characters: " & objItem.SupportsSpecialCharacters Wscript.Echo "Supports XOn XOff: " & objItem.SupportsXOnXOff Wscript.Echo "Supports XOn XOff Setting: " & objItem.SupportsXOnXOffSet Next [/CODE] Cem Üney
-
Hi, I just want to uninstall COM1 or COM2 Commination Device. I can easily do it by right clicking COM2 and click COM2 from Device Manager. But i want to do it with VB Script. I can the read the properties with the code below. But i want to remove the port???? [CODE] On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort",,48) For Each objItem in colItems Wscript.Echo "Binary: " & objItem.Binary Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Maximum Baud Rate: " & objItem.MaxBaudRate Wscript.Echo "Maximum Input Buffer Size: " & objItem.MaximumInputBufferSize Wscript.Echo "Maximum Output Buffer Size: " & objItem.MaximumOutputBufferSize Wscript.Echo "Name: " & objItem.Name Wscript.Echo "OS Auto Discovered: " & objItem.OSAutoDiscovered Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Wscript.Echo "Provider Type: " & objItem.ProviderType Wscript.Echo "Settable Baud Rate: " & objItem.SettableBaudRate Wscript.Echo "Settable Data Bits: " & objItem.SettableDataBits Wscript.Echo "Settable Flow Control: " & objItem.SettableFlowControl Wscript.Echo "Settable Parity: " & objItem.SettableParity Wscript.Echo "Settable Parity Check: " & objItem.SettableParityCheck Wscript.Echo "Settable RLSD: " & objItem.SettableRLSD Wscript.Echo "Settable Stop Bits: " & objItem.SettableStopBits Wscript.Echo "Supports 16-Bit Mode: " & objItem.Supports16BitMode Wscript.Echo "Supports DTRDSR: " & objItem.SupportsDTRDSR Wscript.Echo "Supports Elapsed Timeouts: " & objItem.SupportsElapsedTimeouts Wscript.Echo "Supports Int Timeouts: " & objItem.SupportsIntTimeouts Wscript.Echo "Supports Parity Check: " & objItem.SupportsParityCheck Wscript.Echo "Supports RLSD: " & objItem.SupportsRLSD Wscript.Echo "Supports RTSCTS: " & objItem.SupportsRTSCTS Wscript.Echo "Supports Special Characters: " & objItem.SupportsSpecialCharacters Wscript.Echo "Supports XOn XOff: " & objItem.SupportsXOnXOff Wscript.Echo "Supports XOn XOff Setting: " & objItem.SupportsXOnXOffSet Next [/CODE] Cem Üney
The best you're going to do is remove the device driver, which will disable ALL the devices that driver supports. For instance, to remove the serial port driver, you'll use WMI to get the instance of a
Win32_SystemDriverclass who'sNamepropery is "Serial". A quick and dirty script would look something like this:Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer(strServer, strNameSpace, strUserName, strPassword)
objService.Security_.impersonationlevel = 3
Set objInstance = objService.Get("Win32_SystemDriver='Serial'")
objInstance.DeleteDave Kreskowiak Microsoft MVP - Visual Basic