Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Set objSysInfo = CreateObject("ADSystemInfo")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objSysInfo = Nothing
Set objUser = GetObject(strUserPath)
Wscript.Echo "userpath=" & objUser.ADsPath
Set objParent = GetObject(objUser.Parent)
strParent = objParent.ADsPath
Wscript.Echo "users ou location = " & strParent
Set objParent = Nothing
Select Case strParent
Case "OU=Intuit,OU=Users,OU=CLK,OU=MAN,OU=PHL,DC=corp,DC=suth,DC=com"
strGroup = "usersgroupx"
Case "CN=SMTP Restricted Intuit,OU=Intuit,OU=Users,OU=CLK,OU=MAN,OU=PHL,DC=corp,DC=suth,DC=com"
strGroup = "adminsgroupx"
End Select
If strGroup <> "" Then
Set objGroup = GetObject("WinNT://corp.suth.com/PHL/MAN/CLK/USERS/INTUIT,SMTP Restricted Intuit")
objGroup.Add(objUser.ADsPath)
objGroup.SetInfo
Set objGroup = Nothing
End If
Set objUser = Nothing
Set objSysInfo = CreateObject("ADSystemInfo")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objSysInfo = Nothing
Set objUser = GetObject(strUserPath)
Wscript.Echo "userpath=" & objUser.ADsPath
Set objParent = GetObject(objUser.Parent)
strParent = objParent.ADsPath
Wscript.Echo "users ou location = " & strParent
Set objParent = Nothing
If LCase(strParent) = LCase("OU=Intuit,OU=Users,OU=CLK,OU=MAN,OU=PHL,DC=corp,DC=suth,DC=com") Then
Set objGroup = GetObject("WinNT://corp.suth.com,PHL,MAN,CLK,Users,Intuit,SMTP Restricted Intuit")
objGroup.Add(objUser.ADsPath)
objGroup.SetInfo
Set objGroup = Nothing
End If
Set objUser = Nothing
dim strOU, strGroup, strUserPath, objSysInfo, objUser, objParent, objOU
strOU = "OU=Intuit,OU=Users,OU=CLK,OU=MAN,OU=PHL,DC=corp,DC=suth,DC=com"
strGroup = "CN=SMTP Restricted Intuit" & "," & strOU
Set objSysInfo = CreateObject("ADSystemInfo")
strUserPath = "LDAP://" & objSysInfo.UserName
Set objSysInfo = Nothing
Set objUser = GetObject(strUserPath)
Set objParent = GetObject(objUser.Parent)
Set objOU=GetObject("LDAP://" & strOU)
If strcomp(objParent.ADsPath,objOU.ADsPath,1)=0 Then
Set objGroup = GetObject("LDAP://" & strGroup)
on error resume next
objGroup.Add objUser.ADsPath
objGroup.SetInfo
on error goto 0
Set objGroup = Nothing
End If
Set objOU = Nothing
Set ObjParent = Nothing
Set objUser = Nothing
dim strOU, strGroup, strUserPath, objSysInfo, objUser, objParent, objOU, objGroup
strOU = "OU=Intuit,OU=Users,OU=CLK,OU=MAN,OU=PHL,DC=corp,DC=suth,DC=com"
strGroup = "CN=SMTP Restricted Intuit" & "," & strOU
Set objSysInfo = CreateObject("ADSystemInfo")
strUserPath = "LDAP://" & objSysInfo.UserName
wscript.echo strUserPath
Set objSysInfo = Nothing
Set objUser = GetObject(strUserPath)
Set objParent = GetObject(objUser.Parent)
Set objOU=GetObject("LDAP://" & strOU)
If strcomp(objParent.ADsPath,objOU.ADsPath,1)=0 Then
Set objGroup = GetObject("LDAP://" & strGroup)
wscript.echo objGroup.grouptype
on error resume next
objGroup.Add objUser.ADsPath
objGroup.SetInfo
on error goto 0
Set objGroup = Nothing
End If
Set objOU = Nothing
Set ObjParent = Nothing
Set objUser = Nothing