Stumped: Error: Permission denied: 'GetObject'

From: UNoHu (unohu.nospam_at_nospam.whoever.com)
Date: 04/29/04

  • Next message: Marty Henderson: "objIE.Writeln from 2nd script" 
    Date: Thu, 29 Apr 2004 14:44:00 -0500

    (I'm using Windows XP Pro SP 1a all up-to-date)

    I'm stumped on an issue that just came about on my PC. I can't run any of
    the remote administration scripts that I've created in the past. They all
    worked fine last week but now all I receive is a message with the following
    info:
    Error: Remote calls are not allowed for this process

    After updating my PC to the latest and greatest I get this error:
    Error: Permission denied: 'GetObject'
    Code: 800A0046
    Source: Microsoft VBScript runtime error

    All local admin scripts work fine. All remote admin scripts work fine if I
    execute them on another PC. I even went so far as to use one that I know
    works (Torgeir's "get installed applications routine"). If I try to get the
    info remotely, it does not work from my PC. I've gone through Michael
    Harris' "standard WSH remote scripting checklist" and everything checks out
    perfect. The only thing that I can think of that may have disrupted this is
    an IIS install for Exchange management but I can't figure out how to get it
    back. I've tried downloading and registering RegObj.dll with no change.

    The following script (Torgeirs) errors out with:
    Line: 8
    Char: 2
    Error: Permission denied: 'GetObject'
    Code: 800A0046
    Source: Microsoft VBScript runtime error

    sComputerName = "PC-01" ' use "." for local computer

    WScript.Echo InstalledApplications(sComputerName)

    Function InstalledApplications(node)
     'Torgeir Bakken's get installed applications routine
     Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
     Set oRegistry = _
      GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
      & node & "/root/default:StdRegProv")
     sBaseKey = _
      "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
     iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)
     For Each sKey In arSubKeys
      iRC = oRegistry.GetStringValue( _
       HKLM, sBaseKey & sKey, "DisplayName", sValue)
      If iRC <> 0 Then
       oRegistry.GetStringValue _
        HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
      End If
      If sValue <> "" Then
       InstalledApplications = _
        InstalledApplications & sValue & vbCrLf
      End If
     Next
    End Function 

    -- 
Any help is much appreciated,
UNoHu
  • Next message: Marty Henderson: "objIE.Writeln from 2nd script"

    Relevant Pages

    • multiple remote denial of service vulnerabilities in Gaim
      ... Gaim is a multi-protocol instant ... I have identified several remote denial of service vulnerabilities ... the IRC protocol plugin handles user messages ... obliviousness allows any remote user to inject Gaim markup into the ...
      (Bugtraq)
    • Re: Strange Attack On A Webserver I Work On
      ... they use the webspace of a compromised server to host a remote reverse shell ... They will install some sort of IRC ... or IRC script and attach it to some IRC channel as a zombie. ...
      (Focus-Linux)
    • Re: Stumped: Error: Permission denied: GetObject
      ... > the remote administration scripts that I've created in the past. ... > Source: Microsoft VBScript runtime error ... > All local admin scripts work fine. ... > For Each sKey In arSubKeys ...
      (microsoft.public.scripting.wsh)
    • Re: BitchX Segmentation Fault
      ... I remember when segfaults in bnc (an irc bouncing/proxy program) led to ... remote root compromises. ... It'd be interesting to see a remote develop for BitchX....something ... >>in client applications. ...
      (Vuln-Dev)