Sign in to follow this  
Followers 0
wisem2540

Windows Scripting Host - How to do this in autoit

3 posts in this topic

Here is an example script to return printers. 

Option Explicit
Dim objWMIService, objPrinter, colItems, strComputer

strComputer ="."

Set objWMIService = GetObject("winmgmts:\\" & strComputer &
  "\root\CIMV2")
Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")

' On Error Resume Next
For Each objPrinter In colItems
   Wscript.Echo "DeviceID: " & objPrinter.DeviceID
   Wscript.Echo "Caption: " & objPrinter.Caption
   Wscript.Echo "ServerName: " & objPrinter.ServerName
   Wscript.Echo "ShareName: " & objPrinter.ShareName
   Wscript.Echo "DriverName: " & objPrinter.DriverName
   Wscript.Echo "Default: " & objPrinter.Default
Next

WScript.Quit

Can someone point me in the right direction to accomplish this in autoit?  I cannot seem to locate anything relating to this in the help file.

Share this post


Link to post
Share on other sites



Here's your example converted to AutoIt's syntax, I left the original script lines in but commented out so you can see the conversion needed, it's actually minimal

;~ Option Explicit
Opt("MustDeclareVars", 1)
;~ Dim $objWMIService, $objPrinter, $colItems, $strComputer
Global $objWMIService, $objPrinter, $colItems, $strComputer
;~ strComputer ="."
$strComputer = "."

;~ Set objWMIService = GetObject("winmgmts:\\" & strComputer &   "\root\CIMV2")
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
;~ Set colItems = objWMIService.ExecQuery ("SELECT * FROM Win32_Printer")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer")

;~ ' On Error Resume Next
;~ For Each objPrinter In colItems
For $objPrinter In $colItems
;~    Wscript.Echo "DeviceID: " & $objPrinter.DeviceID
    ConsoleWrite("DeviceID: " & $objPrinter.DeviceIDc & @CRLF)
;~    Wscript.Echo "Caption: " & $objPrinter.Caption
    ConsoleWrite("Caption: " & $objPrinter.Caption & @CRLF)
;~    Wscript.Echo "ServerName: " & $objPrinter.ServerName
    ConsoleWrite("ServerName: " & $objPrinter.ServerName & @CRLF)
;~    Wscript.Echo "ShareName: " & $objPrinter.ShareName
    ConsoleWrite("ShareName: " & $objPrinter.ShareName & @CRLF)
;~    Wscript.Echo "DriverName: " & $objPrinter.DriverName
    ConsoleWrite("DriverName: " & $objPrinter.DriverName & @CRLF)
;~    Wscript.Echo "Default: " & $objPrinter.Default
    ConsoleWrite("Default: " & $objPrinter.Default & @CRLF)
    ConsoleWrite("+++++++++++++++++++++++++++++++++++++++++++++++++++++++" & @CRLF)
Next

;~ WScript.Quit
Exit

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0