maincabin
asked on
VBS Reading Null Value in AD User Account wWWHomePage Attribute
I'm trying to get the ppt to start if there is no value in the wWWHomePage attribute. I keep getting an error: The directory property cannot be found in the cache. I've tried several different call outs for IsNull or Empty.
Dim objSysInfo ,objUser ,strwWWHomePage,strUserDN, ppt, strMbox
Set objSysInfo = CreateObject("ADSystemInfo ")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
strwWWHomePage = objUser.Get("wWWHomePage")
If IsNull(strwWWHomePage) or strwWWHomePage = Empty Then
Set ppt = CreateObject("PowerPoint.A pplication ")
strMbox = MsgBox("Click OK to start PowerPoint presentation")
ppt.Visible = True
ppt.Presentations.Open "\\serverxx\tracking\ppt.p psx"
Else
wscript.quit
End If
Dim objSysInfo ,objUser ,strwWWHomePage,strUserDN,
Set objSysInfo = CreateObject("ADSystemInfo
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
strwWWHomePage = objUser.Get("wWWHomePage")
If IsNull(strwWWHomePage) or strwWWHomePage = Empty Then
Set ppt = CreateObject("PowerPoint.A
strMbox = MsgBox("Click OK to start PowerPoint presentation")
ppt.Visible = True
ppt.Presentations.Open "\\serverxx\tracking\ppt.p
Else
wscript.quit
End If
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER