#71390 - 2002-11-07 06:21 AM
Re: Off topic about pc serial...
|
Saleem
Hey THIS is FUN
Registered: 2001-04-11
Posts: 280
Loc: UAE
|
Fine sory for that thred
Now just two 3 things to confirm
? @kix
? WMIQuery("SerialNumber","Win32_BIOS")
? @Serror
exit
;****************************************************************************************************
FUNCTION WMIQuery($what,$from,optional $computer,optional $where, optional $x)
dim $strQuery, $objEnumerator, $value
if not $computer $computer="@WKSTA" endif
$strQuery = "Select $what From $from"
if $where and $x $strQuery = $strQuery + " Where $where = '$x'" endif
$SystemSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer")
$objEnumerator = $SystemSet.ExecQuery($strQuery)
For Each $objInstance in $objEnumerator
If @Error = 0 and $objInstance <> ""
$=execute("$$value = $$objInstance.$what")
$WMIQuery="$value"+"|"+"$WMIQuery"
EndIf
Next
$WMIQuery=left($WMIQuery,len($WMIQuery)-1)
exit @error
ENDFUNCTION
what I have to assign in $what $from , optional $computer, optional and $where and $x
what about dim $strquery, and othere variables
_________________________
“I’ll not change you unless you don’t have intention to change yourself”
--H:Quran
|
|
Top
|
|
|
|
#71395 - 2002-12-10 06:50 PM
Re: Off topic about pc serial...
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
We advice to use the OsID.kix UDF from this board, when you are running KiXtart 4.x
release.
Our version os.kix run also on earlier kixtart releases, but using an UDF makes
your code easier to read and to maintain.
greetings.
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 883 anonymous users online.
|
|
|
