Maik Richter wrote:
I would have 2 questions and hope anybody can answer. Thanks in advance.
1.. What´s the "exact" difference between an English & German OS (XP)?
- Is it only the Default settings within the "Regional and
Language Options"?
No, it's much more than that. In the German version, all standard menu
names and text in dialog boxes is in German. You will notice the
difference, that I can guarantee you ;-)
2.. Where can I see which OS was installed actually? Is there
anywhere a status within the Settings or anywhere in the system
information, registry etc. ?
The VBScript below will give you this output in a Notepad document:
OS version: Microsoft Windows XP Professional
SP version: Service Pack 2
OS language: English
Regional Settings for user is set to: Norway
Put the following inside a file called OSSettings.vbs
and launch it by double clicking it.
'--------------------8<----------------------
sComputer = "." ' use "." for local computer
Set oShell = CreateObject("WScript.Shell")
On Error Resume Next
Set oWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & sComputer _
& "\root\cimv2")
If Err.Number = 0 Then
Set colOperatingSystems = oWMI.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each oOS in colOperatingSystems
iOSLang = oOS.OSLanguage
sOSLangHex = Right("000" & Hex(iOSLang), 4)
sOSCaption = oOS.Caption
sOSServicePack = oOS.CSDVersion
Next
Const HKCU = &H80000001
Const HKLM = &H80000002
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
& sComputer & "\root\default:StdRegProv")
sOSLanguage = "Unknown" ' Init value
sKeyPath = "SOFTWARE\Classes\MIME\Database\Rfc1766"
sValueName = sOSLangHex
oReg.GetStringValue HKLM, sKeyPath, sValueName, sOSLanguage
' remove unnecessary stuff
aOSLanguage = Split(sOSLanguage, ";")
sOSLanguage = aOSLanguage(UBound(aOSLanguage))
If Instr(sOSLanguage, "(") > 0 Then
aOSLanguage = Split(sOSLanguage, "(")
sOSLanguage = Trim(aOSLanguage(0))
End If
sKeyPath = "Control Panel\International"
sValueName = "sCountry"
oReg.GetStringValue HKCU, sKeyPath, sValueName, sCountry
On Error Goto 0
Set oFSO = CreateObject("Scripting.FileSystemObject")
Const OpenAsASCII = 0
sTmpFile = oShell.ExpandEnvironmentStrings("%TEMP%\tmp_sysinfo.txt")
Set fTmpFile = oFSO.CreateTextFile(sTmpFile, True, OpenAsASCII)
fTmpFile.WriteLine "OS version: " & sOSCaption
fTmpFile.WriteLine "SP version: " & sOSServicePack
fTmpFile.WriteLine "OS language: " & sOSLanguage
fTmpFile.WriteLine "Regional Settings for user is set to: " & sCountry
fTmpFile.Close
oShell.Run "Notepad " & sTmpFile
Else
Wscript.Echo "Error, could not connect with WMI!"
End If
On Error Goto 0
'--------------------8<----------------------