RE: Not every PC is in a named domain

On Fri, 14 Sep 2007, Jerry D. Hedden wrote:
> On 9/14/07, Jerry D. Hedden <jdheddencpan.org> wrote:
> > Yes, I have no workgroup.  (Hey, it's a home PC. 
What do I need a
> > workgroup for? 
> 
> Er... Correction.  My PC (Windows XP) seems to have a
default
> Workgroup name of MSHOME.

That is weird, why does the test fail then.  Doesn't
Win32:omainNam
e()
on that machine return "MSHOME"?  When I run it on
an XP (SP2) machine
that is not part of the domain, I get the workgroup name:

    C:>perl -MWin32 -e "print Win32:omainNam
e"
    WORKGROUP

Are you running as Administrator, Normal user, or with a
Guest account?

Cheers,
-Jan

> > On 9/14/07, Jan Dubois <jandactivestate.com> wrote:
> > > Win32:omainNam
e() is supposed to return the name of the workgroup
> > > for the computer if it is not part of a
domain.  Do you have a blank
> > > workgroup name?  Or do you just have a
workgroup name that doesn't
> > > match the regexp in the test?
> > >
> > > Cheers,
> > > -Jan
> > >
> > > On Fri, 14 Sep 2007, Jerry D. Hedden wrote:
> > > > The attached patch skips the following
failing test:
> > > >
> > > > > ./perl -Ilib ext/Win32/t/Names.t
> > > > 1..16
> > > > ok 1 - Win32:omainNam
e()
> > > > not ok 2 -   - checking returned domain
> > > > #   Failed test '  - checking returned
domain'
> > > > #   at ext/Win32/t/Names.t line 19.
> > > > #                   undef
> > > > #     doesn't match '/^[a-zA-Z0-9!#$%^&()_'{}.~-]+$/'
> > > > ok 3 - Win32::GetArchName()
> > > > ok 4 -   - checking returned
architecture name
> > > > ok 5 - Win32::GetChipName()
> > > > ok 6 -   - checking returned chip name
> > > > ok 7 - Win32::GetOSName() in scalar
context
> > > > ok 8 -   - checking returned OS name
> > > > ok 9 - Win32::GetOSName() in list
context
> > > > ok 10 -   - checking returned OS name
> > > > ok 11 -   - checking returned
description
> > > > ok 12 -  - checking that OS name is the
same in both calls
> > > > ok 13 - Win32::LoginName()
> > > > ok 14 -   - checking returned login
name
> > > > ok 15 - Win32::NodeName()
> > > > ok 16 -   - checking returned node name
> > > > # Looks like you failed 1 test of 16.

Jerry D. Hedden wrote:
> > Yes, I have no workgroup.  (Hey, it's a home PC. 
What do I need a
> > workgroup for? 
>
> Er... Correction.  My PC (Windows XP) seems to have a
default
> Workgroup name of MSHOME.

Jan Dubois wrote:
> That is weird, why does the test fail then.  Doesn't
Win32:omainNam
e()
> on that machine return "MSHOME"?  When I run
it on an XP (SP2) machine
> that is not part of the domain, I get the workgroup
name:
>
>     C:>perl -MWin32 -e "print Win32:omainNam
e"
>     WORKGROUP

It prints out nothing on my PC.  So it appears to be
returning an empty
string.

> Are you running as Administrator, Normal user, or with
a Guest account?

My account is an Administrator.