TSO Posted March 28, 2008 Author Posted March 28, 2008 I don't know what you mean by "not logged on domain". $wmi = ObjGet("winmgmts:") $wql = "select * from win32_computersystem" $results = $wmi.execquery($wql) for $compsys in $results ConsoleWrite($compsys.domain) nextI just meant to state that I wasn't referring to the logon domain (I wasn't referring to the domain for user accounts, but instead the machine accounts). Either way, you just gave me exactly what I needed.
madmikep Posted March 29, 2008 Posted March 29, 2008 I created this to read the BIOS serial number Lenovo "IBM" Dim $StrSerial $StrSerial = "" $ObjWMI = ObjGet("winmgmts:") $ColSettingsBios = $ObjWMI.ExecQuery("Select * from Win32_BIOS") For $ObjComputer in $ColSettingsBios $StrSerial = $StrSerial & $ObjComputer.SerialNumber Next MsgBox(4096,"","Serial Number= " & $StrSerial) $Result = StringLen($StrSerial) IF $Result > 15 Then $StrSerial = StringLeft ( $StrSerial, 15 ) EndIf
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now