Avatar of Jeff Darling
Jeff Darling
Flag for United States of America asked on

Internet Explorer VBScript on Intranet

I'm having trouble with a simple winmgts script.  I'm sure I must have a coding error, I just cannot see it.

<!DOCTYPE HTML>
<html>
<head>

  <title></title>
  <meta charset="utf-8">
  <meta name="viewport" content="width=device-width, initial-scale=1">
    <style>
.result {
    border: 2px solid;
    border-radius: 50px;
    padding-top: 25px;
    padding-right: 50px;
    padding-bottom: 25px;
    padding-left: 50px;
    width:500px;
}

    </style>
<script language="VBScript">
function foo()
dim strComputer
dim objReg

on error resume next

strComputer = "."

Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

If Err <> 0 Then
   foo = err.number & " " & err.description
end if

If Err = 0 Then
  foo = "ok"
Else
  foo = err.number & " " & err.description
End If

end function

</script>

<script type="text/javascript">
function myFunction() {
    document.getElementById("status").innerHTML ="Before Call to foo()";
    document.getElementById("result").innerHTML = foo();
    document.getElementById("status").innerHTML = "After Call to foo()";
}
</script>


</head>
<body onload="myFunction()">
<h3>Results should show up below</h3>
<div id="result" class="result"></div>
<hr></hr>
<br></br>
<div id="status"></div>
<p>Test 0001</p>
</body>
</html>

Open in new window


screenshotresults.jpg
Web Applications

Avatar of undefined
Last Comment
Jeff Darling

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
Gary

Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
Sign up - Free for 7 days
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
Jeff Darling

ASKER
IE 9
ActiveX is enabled
Jeff Darling

ASKER
ok, It is definitely a security setting.  I was able to get it to work by setting the security settings to low, but I should not have to do that.

at least I know that the code is ok.  this is intended to run locally, not across the internet.

cannot do as HTA, has to be hosted on IIS...
Experts Exchange is like having an extremely knowledgeable team sitting and waiting for your call. Couldn't do my job half as well as I do without it!
James Murphy