COM - ADSysteminfo Object

[davezub]

OK I have to admit I suck at WMI/VB scripting.....However, I'm digging through the stuff with all posts from sven and the help file. I already have a script that I grab the username and fullname (I can't use the Autoit macro @UserName because I'm running the job under a scheduler using the local system account). However, I now need to grab the OU the user is located, no big deal 4 lines of code (see below - works)

Set objInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objInfo.Username & "")
Set objUserParent = GetObject(objUser.Parent)
WScript.Echo objInfo.UserName
WScript.Echo objUserParent.distinguishedName

I tried to convert this to Autoit using the VB converter floating around - (see below) but it fails on ObjCreate.

#include <bk-logfile.au3>

$objInfo = ObjCreate("ADSystemInfo")
$objUser = ObjGet("LDAP://" & $objInfo.Username & "")
$objUserParent = ObjGet($objUser.Parent)
_WriteLog ($objInfo.UserName)
_WriteLog ($objUserParent.distinguishedName)

I read the help file and thought I would have to define the Object like it states in the help file "appname.objectype". So I follow the help file using OleView but the object does not seem to have the VersionIndependentProgId only ProgID = ADSysteminfo.

What am I doing wrong??????? Thanks....

[DaleHohm]

I think that you need to post the exact errors taht you receive. I don't get an error on the ObjCreate, so we'll need to see what you are getting.

Also, did you try executing the .vbs code and did it work as expected?

Dale

[GaryFrost]

I think that you need to post the exact errors taht you receive.  I don't get an error on the ObjCreate, so we'll need to see what you are getting.

Also, did you try executing the .vbs code and did it work as expected?

Dale

<{POST_SNAPBACK}>

Try this for error:

$objInfo = ObjCreate("ADSystemInfo")
ConsoleWrite($objInfo.Username & @LF)
$s_name = StringMid($objInfo.Username,4,StringInStr($objInfo.Username," ") - 4)
$objUser = ObjGet("LDAP://" & $objInfo.Username & "")
if @error then 
  Msgbox (0,"LDAP Test","Error Getting an LDAP Object. Error code: " & hex(@error,8))
  exit
endif
$objUserParent = ObjGet($objUser.Parent)

[davezub]

Thanks, all, it works now it was a problem with the _WriteLog lines, I just whacked them and took out the include......

Thanks again......