Hi,

How do I tell if account I'm running my script is domain account or local ?
I'm using vbscript.

thanks
Vilius

"Vilius Mockûnas" <v_mockunas@xxxxxx> wrote in message
news:e2osUxFHKHA.1248@xxxxxx

> Hi,
>
> How do I tell if account I'm running my script is domain account or local
> ?
> I'm using vbscript.
>
> thanks
> Vilius
>

I code similar to the following:
=======
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
If (Err.Number = 0) Then
strUserDN = objSysInfo.UserName
If (Err.Number = 0) Then
On Error GoTo 0
blnDomain = True
Else
On Error GoTo 0
blnDomain = False
End If
Else
On Error GoTo 0
blnDomain = False
End If
========
If blnDomain is True, the user is authenticated to AD. There may be other
ways, but I chose this method because it times quickly if the user is not
authenticated to a domain. I'd be interested to know if anyone has other
methods.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Hi,

Thanks for advice.
But I found simpler way:
dim o_wsh_network
set o_wsh_network = createobject( "WScript.Network" )
if o_wsh_network.userdomain = o_wsh_network.computername then
msgbox( "local account" )
else
msgbox( "domain account" )
endif

V

"Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> wrote in
message news:e6I19VGHKHA.4620@xxxxxx

>
> "Vilius Mockûnas" <v_mockunas@xxxxxx> wrote in message
> news:e2osUxFHKHA.1248@xxxxxx

>> Hi,
>>
>> How do I tell if account I'm running my script is domain account or local
>> ?
>> I'm using vbscript.
>>
>> thanks
>> Vilius
>>

>
> I code similar to the following:
> =======
> On Error Resume Next
> Set objSysInfo = CreateObject("ADSystemInfo")
> If (Err.Number = 0) Then
> strUserDN = objSysInfo.UserName
> If (Err.Number = 0) Then
> On Error GoTo 0
> blnDomain = True
> Else
> On Error GoTo 0
> blnDomain = False
> End If
> Else
> On Error GoTo 0
> blnDomain = False
> End If
> ========
> If blnDomain is True, the user is authenticated to AD. There may be other
> ways, but I chose this method because it times quickly if the user is not
> authenticated to a domain. I'd be interested to know if anyone has other
> methods.
>
> --
> Richard Mueller
> MVP Directory Services
> Hilltop Lab - http://www.rlmueller.net
> --
>
>

You may need to test that in a workgroup situation.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--
"Vilius Mockûnas" <v_mockunas@xxxxxx> wrote in message
news:OVCH%231GHKHA.1380@xxxxxx

> Hi,
>
> Thanks for advice.
> But I found simpler way:
> dim o_wsh_network
> set o_wsh_network = createobject( "WScript.Network" )
> if o_wsh_network.userdomain = o_wsh_network.computername then
> msgbox( "local account" )
> else
> msgbox( "domain account" )
> endif
>
> V
>
> "Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> wrote in
> message news:e6I19VGHKHA.4620@xxxxxx

>>
>> "Vilius Mockûnas" <v_mockunas@xxxxxx> wrote in message
>> news:e2osUxFHKHA.1248@xxxxxx

>>> Hi,
>>>
>>> How do I tell if account I'm running my script is domain account or
>>> local ?
>>> I'm using vbscript.
>>>
>>> thanks
>>> Vilius
>>>

>>
>> I code similar to the following:
>> =======
>> On Error Resume Next
>> Set objSysInfo = CreateObject("ADSystemInfo")
>> If (Err.Number = 0) Then
>> strUserDN = objSysInfo.UserName
>> If (Err.Number = 0) Then
>> On Error GoTo 0
>> blnDomain = True
>> Else
>> On Error GoTo 0
>> blnDomain = False
>> End If
>> Else
>> On Error GoTo 0
>> blnDomain = False
>> End If
>> ========
>> If blnDomain is True, the user is authenticated to AD. There may be other
>> ways, but I chose this method because it times quickly if the user is not
>> authenticated to a domain. I'd be interested to know if anyone has other
>> methods.
>>
>> --
>> Richard Mueller
>> MVP Directory Services
>> Hilltop Lab - http://www.rlmueller.net
>> --
>>
>>

>
>

As I remember userdomain property never returns workgroup name only
computer/domain.

V

"Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> wrote in
message news:e9tKMZHHKHA.4432@xxxxxx

> You may need to test that in a workgroup situation.
>
> --
> Richard Mueller
> MVP Directory Services
> Hilltop Lab - http://www.rlmueller.net
> --
> "Vilius Mockûnas" <v_mockunas@xxxxxx> wrote in message
> news:OVCH%231GHKHA.1380@xxxxxx

>> Hi,
>>
>> Thanks for advice.
>> But I found simpler way:
>> dim o_wsh_network
>> set o_wsh_network = createobject( "WScript.Network" )
>> if o_wsh_network.userdomain = o_wsh_network.computername then
>> msgbox( "local account" )
>> else
>> msgbox( "domain account" )
>> endif
>>
>> V
>>
>> "Richard Mueller [MVP]" <rlmueller-nospam@xxxxxx> wrote in
>> message news:e6I19VGHKHA.4620@xxxxxx

>>>
>>> "Vilius Mockûnas" <v_mockunas@xxxxxx> wrote in message
>>> news:e2osUxFHKHA.1248@xxxxxx
>>>> Hi,
>>>>
>>>> How do I tell if account I'm running my script is domain account or
>>>> local ?
>>>> I'm using vbscript.
>>>>
>>>> thanks
>>>> Vilius
>>>>
>>>
>>> I code similar to the following:
>>> =======
>>> On Error Resume Next
>>> Set objSysInfo = CreateObject("ADSystemInfo")
>>> If (Err.Number = 0) Then
>>> strUserDN = objSysInfo.UserName
>>> If (Err.Number = 0) Then
>>> On Error GoTo 0
>>> blnDomain = True
>>> Else
>>> On Error GoTo 0
>>> blnDomain = False
>>> End If
>>> Else
>>> On Error GoTo 0
>>> blnDomain = False
>>> End If
>>> ========
>>> If blnDomain is True, the user is authenticated to AD. There may be
>>> other ways, but I chose this method because it times quickly if the user
>>> is not authenticated to a domain. I'd be interested to know if anyone
>>> has other methods.
>>>
>>> --
>>> Richard Mueller
>>> MVP Directory Services
>>> Hilltop Lab - http://www.rlmueller.net
>>> --
>>>
>>>

>>
>>

>
>

is my domain name free for the year?
"Vilius Mockûnas" <v_mockunas@newsgroup> wrote in message
news:e2osUxFHKHA.1248@newsgroup

> Hi,
>
> How do I tell if account I'm running my script is domain account or local
> ?
> I'm using vbscript.
>
> thanks
> Vilius
>
>