Re: Advice on using Win32_Printer

The error code that you are receiving is a WMI Access Denied error.

To perform these operations remotely you need to either be an admin on the
remote servers (domain admin or local), see this link here for configuration
of WMI for non-admin namespace access.
http://www.microsoft.com/technet/scriptcenter/resources/wmifaq.mspx#EGAA

--
Scott McNairy
Microsoft MVP - Windows Server Management Infrastructure


"Joseph" <philippeoget@xxxxxxxxxxx> wrote in message
news:OCiw6JbcFHA.1504@xxxxxxxxxxxxxxxxxxxxxxx
> Hello everyone,
>
> Could someone tell me if this script would do what I want,
> which is to enumarate the printers attached to each Server.
>
> I get an error, which I think indicates that I do not have admin rights on
> these servers.
> Is that correct?
>
> If I know that this script would work, then I can add what I need it to do
> (create a web page with some of the results returned),
> then ask someone else, in another country, to run it for me.
> TIA
>
> 'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp
> On Error Resume Next
>
> Dim arrPrSrv(7)
> Dim i
> 'arrPrSrv(0) = "." '. local computer
> arrPrSrv(1) = "PrtSrv1"
> arrPrSrv(2) = "PrtSrv2"
> arrPrSrv(3) = "PrtSrv3"
> arrPrSrv(4) = "PrtSrv4"
> arrPrSrv(5) = "PrtSrv5"
> arrPrSrv(6) = "PrtSrv6"
> arrPrSrv(7) = "PrtSrv7"
>
> For i = 1 To 7
>
> strComputer = arrPrSrv(i)
> Set objWMIService = GetObject("winmgmts:\\" & strComputer &
> "\root\cimv2")
> Set colItems = objWMIService.ExecQuery("Select * from
> Win32_Printer",,48)
>
> ' WScript.Echo strComputer
> For Each objItem In colItems
> WScript.Echo "Name: " & objItem.Name & Chr(13) _
> & "ServerName: " & objItem.ServerName & Chr(13) _
> & "ShareName: " & objItem.ShareName & Chr(13) _
> & "Port Name: " & objItem.PortName ' what I'm after - as this
> can be used to work out the htm address:
> '
> Note that the 'Web Page Address' as displayed by AD
> '
> does not work, http://<IP_Address> does
> Next
>
> Next
>
> If Err <> 0 Then
>
> If err.Code = 80041003 Then ' 0x0080041003 = admin rights required
> ' MsgBox Err.number & Chr(13) _
> ' & err.description
> WScript.Echo Err.number & Chr(13) _
> & err.description
> End If
>
> End If
>


.

Relevant Pages

  • Re: Renaming Admin ID - Making Sys Admins Accountable
    ... If they are 2003 member servers then you have remote access via the /console ... I think their point was that these apps dont necessarily need ... > that power user to do admin tasks because the apps have to always be ... >> /console and remotely run the console and still keep your two sessions up ...
    (microsoft.public.win2000.active_directory)
  • RE: managing servers...
    ... as an example, i have 10-15 servers... ... know that the boxes are corectly setup for the given functions.. ... and some other functionality would be ... An admin that relies on such tools ...
    (Fedora)
  • Re: Forest to Child -- Permissions
    ... first DC in the root. ... the member servers only ... DCDiag pretty much confirms authentication AND that DNS is right. ... never happen unless some admin has been mucking about. ...
    (microsoft.public.windows.server.dns)
  • Re: Inheriting network, first steps?
    ... PS. step 0 diable VPN access until you have time for step 4 ... determine that you can log in with the highest admin rights on each box ... Domain controllers first, critical servers next, etc. ... inventory all accounts with admin rights, ...
    (microsoft.public.windows.server.security)
  • Re: Inheriting network, first steps?
    ... determine that you can log in with the highest admin rights on each box ... Domain controllers first, critical servers next, etc. ... inventory all accounts with admin rights, ...
    (microsoft.public.windows.server.security)
Loading