Getting computer dan user information

[michaelslamet 32]

Hi,

I try to get some computer dan user information. This is some information I think I can get:

"Computer Name" using @ComputerName

"Workgroup" using a func that I already have

"Username" using @UserName

"Home Drive" and "Home Path" using @HomeDrive & @HomePath

"OS Version" using @OSVersion

What other information I can gather and would you give a hint how to do it?

Thanks

[big_daddy 19]

Ever heard of BgInfo?

[michaelslamet 32]

No until I saw your post

I'm going to see that, thanks!

[water 1,805]

There is a very good >computer info UDF available.

[blckpythn 2]

Here is a snippet from my own computer info gathering utility, naturally I did not include everything as it contained identifying information. Also its pretty mediocre in quality. Hope it helps though!

expandcollapse popup

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <Inet.au3>
#include <CompInfo2.au3>

Func GetDrives()
    $var1 = DriveGetDrive("NETWORK")
    If @error Then
        ConsoleWrite("An error occured while retrieving the drives." & @CRLF)
        Return "No drives to display."
    EndIf
    $var2 = ""
    For $i = 1 To $var1[0]
        $var2 &= StringUpper($var1[$i]) & "         " & DriveMapGet($var1[$i]) & @CRLF
    Next
    Return $var2
EndFunc   ;==>GetDrives

; Get RAM in MBs
Func GetRAM()
    $Ramvar = MemGetStats()
    $Ram1 = StringSplit(($Ramvar[1] / 1024), ".")
    $Ram2 = $Ram1[1] & " MB"
    Return $Ram2
EndFunc   ;==>GetRAM

; Get free hard drive space.
Func GetFree()
    $freevar = DriveSpaceFree("C:")
    $free1 = StringSplit($freevar, ".")
    $free2 = $free1[1] & " MB"
    Return $free2
    ConsoleWrite($free2 & @CRLF)
EndFunc   ;==>GetFree

Func GetGateway()
    $obj = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\" & "." & "\root\cimv2")
    $list = $obj.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True", "WQL", 0x30)
    If IsObj($list) Then
        For $subobject In $list
            If $subobject.IPAddress(0) == @IPAddress1 Then
                $result = $subobject.DefaultIPGateway(0)
            EndIf
        Next
        Return $result
    EndIf
    Return SetError(1, 0, $result)
EndFunc   ;==>GetGateway

Func ComputerNameAndModel()
    Local $aReturn[2] = ["(Unknown)", "(Unknown)"], $oColItems, $oWMIService
    $oWMIService = ObjGet("winmgmts:\\.\root\cimv2")
    $oColItems = $oWMIService.ExecQuery("Select * From Win32_ComputerSystemProduct", "WQL", 0x30)
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            $aReturn[0] = $oObjectItem.Name
            $aReturn[1] = $oObjectItem.IdentifyingNumber
        Next
;~      ConsoleWrite("Model: " & $aReturn[0] & @CRLF & "Serial: " & $aReturn[1] & @CRLF)
        Return $aReturn
    EndIf
    Return SetError(1, 0, $aReturn)
EndFunc   ;==>ComputerNameAndModel

Func GetAllPrinters()
    $oWSN = ObjCreate("WScript.Network")
    $oPrt = $oWSN.EnumPrinterConnections
    For $i = 0 To $oPrt.Count - 1 Step 2
        If $defPrtNm = $oPrt($i + 1) Then
            $pm = ".=> "
            $InpDef = ($i + 2) / 2
        Else
            $pm = ".   "
        EndIf
        $prtList = $prtList & @CRLF & ($i + 2) / 2 & $pm & $oPrt($i + 1)
    Next
    If $prtList = "" Then
        $prtList = "No Printers to display."
    EndIf
    Return $prtList
EndFunc   ;==>GetAllPrinters

Edited June 11, 2013 by blckpythn