Hallo Forum,
ich habe für meine Anwender ein kleines Infoscript zusammengebastelt, welches ein paar Infos ausgibt (z.B. angemeldeter Nutzer, IP-Adresse, etc.)
JEtzt soll auch die Officeversion (2003, 2007, 2010) und -edition (Standard, Pro, Home and Business) angezeigt werden. Ich habe es soweit, dass die Version angezeigt wird; bei der Edition stehe ich noch auf dem Schlauch.
Vielleicht hat jemand einen Tipp für mich.
Hier mein QUellcode:
[autoit]$objWord = ObjCreate("Word.Application")
If IsObj($objWord) Then
$OfficeVerison = $objWord.Version
$objWord.Quit
Else
$OfficeVerison = "N/A"
EndIf
Switch $OfficeVerison
Case "7.0"
$OfficeVerison = "97"
Case "8.0"
$OfficeVerison = "98"
Case "9.0"
$OfficeVerison = "2000"
Case "10.0"
$OfficeVerison = "2002"
Case "11.0"
$OfficeVerison = "2003"
Case "12.0"
$OfficeVerison = "2007"
Case "14.0"
$OfficeVerison = "2010 - Aktuell"
Case "N/A"
$OfficeVerison = "Nicht installiert"
Case Else
$OfficeVerison = "Viel zu alt!"
EndSwitch
$USERNAME=ENVGET("USERNAME")
$COMPUTERNAME=ENVGET("COMPUTERNAME")
$USERDOMAIN=ENVGET("USERDOMAIN")
$LOGONSERVER=ENVGET("LOGONSERVER")
MSGBOX(64,"verticalvision IT-Support Umgebungsinfo","verticalvision IT-Support Umgebungsinfo"&@LF&@LF&"Angemeldeter Benutzer:"&@LF&$USERNAME&@LF&@LF&"Computername:"&@LF&$COMPUTERNAME&@LF&@LF&"Domäne:"&@LF&$USERDOMAIN&@LF&@LF&"Logonserver:"&@LF&$LOGONSERVER&@LF&@LF&"IP-Adresse:"&@LF&@IPADDRESS1&@LF&@LF&"Betriebssystem:"&@LF&@OSVERSION&" "&@OSSERVICEPACK&" "&@OSARCH&@LF&@LF&"Auflösung:"&@LF&@DESKTOPWIDTH&" x "&@DESKTOPHEIGHT&" @ "&@DESKTOPDEPTH&" Bit Farbtiefe"&@LF&@LF&"Microsoft Office Version:"&@LF&$OfficeVerison)
Ciao,
salnet