Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: PMLee
  • Order by date
  1. PMLee

    VBScript Default Network Printer Based on G.Thomas's Script

    I made a couple of changes here: strComputer = "." 'Current Computer Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * from Win32_UserAccount Where LocalAccount = False") If isEmpty(colItems) Then...
  2. PMLee

    VBScript Default Network Printer Based on G.Thomas's Script

    Thank you. It states that the error is in the 7th line, the part where it says: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2\")
  3. PMLee

    VBScript Default Network Printer Based on G.Thomas's Script

    On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2\") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_UserAccount Where LocalAccount = False") 'Searches all non-local clients For Each objItem in...

Part and Inventory Search

Back
Top