Who can get me an ADSI HELP??
Ok, Thank you so much
-----Messaggio originale-----
Inserito: gioved 19 novembre 1998 13.20
Inserito in: wsh
Conversazione: Who can get me an ADSI HELP??
Oggetto: Re: Who can get me an ADSI HELP??
Computer.Role does not work with the WinNT name space so you have to be
imaginative. In most organizations, servers and workstations have
different naming conventions. By parsing the string Computer.Name and
searching for the distinctive part of the name that identifies it as a
server you will be able to determine whether the node is a server or
workstation. VB 5.0 beta 2 has support for regular expressions, this
will help.
?
Clarence
<http://cwashington.netreach.net/> Win32 Scripting.... Step through the
code....
Check it out
http://cwashington.netreach.net <http://cwashington.netreach.net/>
Win32 bit scripting. Everything you need to get up and running,
A script repository containing almost 100 sample scripts,
downloads, reference files, and technical support via an
online discussion forum.
(Pursuant to US Code, Title 47, Chapter 5, Subchapter II, 227, any and
all
unsolicited commercial E-mail sent to this address is subject to a
download
and archival fee in the amount of $1000 US.? E-mailing denotes
acceptance of
these terms.)
.
And now, how can i get if the computer is a server or a workstation???
-----Messaggio originale-----
Inserito: mercoled 18 novembre 1998 13.16
Inserito in: wsh
Conversazione: Who can get me an ADSI HELP??
Oggetto: Re: Who can get me an ADSI HELP??
The computer role is not support by the WinNT name space only active
directory... Kinda of drag.
Clarence
< http://cwashington.netreach.net/ <http://cwashington.netreach.net/> >
Win32 Scripting.... Step through the
code....
Check it out
http://cwashington.netreach.net <http://cwashington.netreach.net> <
http://cwashington.netreach.net/ <http://cwashington.netreach.net/> >
Win32 bit scripting. Everything you need to get up and running,
A script repository containing almost 100 sample scripts,
downloads, reference files, and technical support via an
online discussion forum.
(Pursuant to US Code, Title 47, Chapter 5, Subchapter II, 227, any and
all
nonsolicited commercial E-mail sent to this address is subject to a
download
and archival fee in the amount of $1000 US. E-mailing denotes
acceptance of
these terms.)
Hi, i have a little problem, i have to touch every NT workstation under
a Domain.
The problem is i can't get the "Role" of the computer i touch. In
effetct i can get only certain method, like OperatingSystem,
Owner,Division,ProcessorCount,Processor,AdsPath,Class, Guid,Name,Parent,
for the oher methods i get error "the properties is not in cache". What
is wrong??
THIS IS MY CODE
Dim Listamacchina As IADs
Dim ComputerOBJ As IADs
'Dim InformazioniMacchina As IADsComputer
Dim i As Long
Dim MyVar
Dim DN
Dim UserName As String
Dim Password As String
Dim propcount As Integer
Dim MyADSproplist As IADsPropertyList
Dim MyADSObj As IADsOpenDSObject
Dim TestMacchina As IADsComputer
'
' Procedura
'
'Screen.MousePointer = vbHourglass
ListaComputers.Clear
'Set Dominio = GetObject("WinNT://" & ListaDomini.Text)
'Dominio.filter = Array("computer")
Set Listamacchina = GetObject("WinNT://FINCANTIERI-MC)
Listamacchina.Filter = Array("computer")
DoEvents
Listamacchina.GetInfo
DoEvents
For Each ComputerOBJ In Listamacchina
ListaComputers.AddItem ComputerOBJ.Name
DoEvents
On Error Resume Next
Set TestMacchina = GetObject("WinNT://" & ListaDomini.Text & "/"
& ComputerOBJ.Name & ",Computer")
DoEvents
If Err <> 0 Then
ListErrors.AddItem Err & ":" & ComputerOBJ.Name
Err.Clear
GoTo ContinuaLoop
End If
TestMacchina.GetInfo
DoEvents
ListaComputers.AddItem "Ruolo : " & TestMacchina.Role
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "GetRole"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "OS : " &
TestMacchina.OperatingSystem
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "OperatingSystem"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "OSVer : " &
TestMacchina.OperatingSystemVersion
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "OsVersion"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Owner : " & TestMacchina.Owner
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Owner"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Division: " & TestMacchina.Division
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Division"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Num Proc: " &
TestMacchina.ProcessorCount
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "ProcessorCount"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Typ Proc: " & TestMacchina.Processor
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Processor"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "AdsPath : " & TestMacchina.ADsPath
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "AdsPath"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Class : " & TestMacchina.class
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Class"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "CompID : " & TestMacchina.ComputerID
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "ComputerID"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Depart : " & TestMacchina.Department
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Department"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Descipt : " & TestMacchina.Description
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Description"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "GUID : " & TestMacchina.Guid
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "GUID"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Location: " & TestMacchina.Location
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Location"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Memsize : " & TestMacchina.MemorySize
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "MemorySize"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Model : " & TestMacchina.Model
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Model"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "name : " & TestMacchina.Name
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Name"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "NetADD : " & TestMacchina.NetAddresses
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "NetAddress"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Parent : " & TestMacchina.Parent
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Parent"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "PriUse : " & TestMacchina.PrimaryUser
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "PrimaryUser"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "Site : " & TestMacchina.Site
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "Site"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "StorCap : " &
TestMacchina.StorageCapacity
DoEvents
If Err <> 0 Then
ListErrors.AddItem " "
ListErrors.AddItem ComputerOBJ.Name
ListErrors.AddItem "StorageCapacity"
ListErrors.AddItem " " & Err
ListErrors.AddItem " " & Error(Err)
Err.Clear
End If
ListaComputers.AddItem "========================"
...
read more »
