#113393 - 2004-02-05 01:35 AM
Trying to capture Serial Numbers
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Getting a Dispatch Pointer message -
USING:
WMIQUERY()
LOGGER()
UDFs
Code:
CLS
BREAK ON
Dim $Container
Dim $ContainerName
Dim $Computer
$ContainerName = "domain"
$Container = GetObject("WinNT://" + $ContainerName)
$Container.Filter = "Computer"
For Each $Computer in $Container
IF LEFT($Computer.Name,4)='ABC0'
IF RIGHT($Computer.Name,4)>1300
$state = WMIQuery("SerialNumber","Win32_BaseBoard",CHR(34)+$Computer.Name+CHR(34))
?$COMPUTER
?$STATE
;$logfile='H:\compstatus.csv'
;$logdata=$Computer + ',' $state + @CRLF
;LOGGER($logfile,$logdata)
ENDIF
ENDIF
Next
GET $K
Thanks,
Kent
Edited by kdyer (2004-02-05 01:36 AM)
|
Top
|
|
|
|
#113396 - 2004-02-05 05:10 AM
Re: Trying to capture Serial Numbers
|
Radimus
Moderator
Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
|
depending on how old the version of WMIQuery you are using, the newer version always returns an array
append a [0] to the end of the WMIQuery statement
|
Top
|
|
|
|
#113403 - 2004-02-11 01:45 AM
Re: Trying to capture Serial Numbers
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Was able to get this going and works a treat!
Code:
DIM $container DIM $containername DIM $computer $containername = "Domain" $container = GetObject("WinNT://" + $containername) $container.filter = "Computer", "" $logfile='H:\compstatus.csv' FOR EACH $computer IN $container IF LEFT($computer.name,4)='ABC0' IF RIGHT($computer.name,4)>=1300 IF EXIST('\\'+$computer.name+'\Admin$$') ;Check to insure the machine is up $logdata=$computer.name+','+WMIQuery('SerialNumber','Win32_BIOS',$computer.name)[0]+@crlf LOGGER($logfile,$logdata) ELSE $logdata=$computer.name+','+'NotAvailable'+@crlf LOGGER($logfile,$logdata) ENDIF ENDIF ENDIF NEXT ?'Process is complete.. Press a key to continue' GET $k
Kent
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 507 anonymous users online.
|
|
|