[VB SCRIPT] Taal van Windows Detecteren (regkey?).

[Verwijderd]

Hellow tweakers,

ik ben bezig om een cd te maken die automatisch start. Ik heb verder weinig ervaring met vbscripting dus misschien is het niet helemaal logisch wat ik nu in gedachte heb :-p.

Ik zit aan 3 bestanden te denken :

Autorun.inf
ENG.html
NL.html

Aan de hand van de versie van windows die geinstalleerd is op de computer waarin de cd opstart wordt er automatisch gekozen voor een van de html bestanden.

Is het mogelijk om in de autorun.inf te bepalen welke versie van windows geinstalleerd is ? Zoja hoe?
OF
Moet ik dit met een VBscript oplossen, en zoja hoe kom ik erachter welke taal versie van windows is geinstalleerd etc ?

Mvg,
Andre

[jvdmeer]

Zoek eens naar WMI en Win32_OperatingSystem. De 1e link is de MSDN met vorbeeld.

[MTWZZ]

WMI is je vriend en Win32_OperatingSystem.OSLanguage heeft wat jij nodig hebt.

offtopic:
spuit elf

[ Voor 19% gewijzigd door MTWZZ op 04-01-2006 14:29 ]

[Verwijderd]

Cool thanks guys :-D.

Ik ben er bijna uit. Ik hou het gewoon bij een vbs script die voor de redirect zorgt. Ik heb nog een probleempje en kom er ff niet uit de code is als colgt

code:

Option Explicit
Dim objWMIService, objItem, colItems, test
Dim strComputer, strList

On Error Resume Next
strComputer = "."

' WMI Connection to the object in the CIM namespace
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")

' WMI Query to the Win32_OperatingSystem
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

Set WshShell = WScript.CreateObject("WScript.Shell")

' For Each... In Loop (Next at the very end)
For Each objItem in colItems


test = objItem.OSLanguage

if test = 1033 then
 WScript.Echo "Good morning!"
 WshShell.Run("INSTALL.HTML")

else
 WScript.Echo "Have a nice day!"
end if


Next
WScript.Quit

' End of WMI Win32_OperatingSystem VBScript

hier gaat iets mis, het is even een test dus de teksten zijn niet helemaal logisch , heb een aantal script bij elkaar geplakt, het gaat mij nu even om de werken daarna poets ik het op.

Zie het gedeelte met :

if test = 1033 then
WScript.Echo "Good morning!"
WshShell.Run("INSTALL.HTML")

De echo werkt gewoon goed, maar zodra ik de Wshell wil runnen werkt het niet, en hij wil ook niet runnen als ik die echo weg haal.

Terwijl dit wel gewoon werkt in een eigen vbs :

code:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("INSTALL.HTML")

wat doe ik fout?:-S

[ Voor 8% gewijzigd door Verwijderd op 04-01-2006 16:48 ]

[Verwijderd]

Iemand enig idee ?

Het probleem zit hem in de

if then else ofzo denk ik

code:

if test = 1033 then
 WScript.Echo "Good morning!"
 WshShell.Run("INSTALL.HTML")

else
 WScript.Echo "Have a nice day!"

end if

WScript.Echo werkt wel alleen de WshShell.Run werkt niet (ookal haal ik WScript.Echo weg).

[ Voor 7% gewijzigd door Verwijderd op 05-01-2006 09:17 ]

[Verwijderd]

opgelost :

code:

Option Explicit
Dim objWMIService, objItem, colItems, test
Dim strComputer, strList

On Error Resume Next
strComputer = "."

' WMI Connection to the object in the CIM namespace
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")

' WMI Query to the Win32_OperatingSystem
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")


test = objItem.OSLanguage

if test = 0413 then

Dim SH, txtFolderToOpen
Set SH = WScript.CreateObject("WScript.Shell")
txtFolderToOpen = "language/NL.HTML"
SH.Run txtFolderToOpen
Set SH = Nothing

else


Set SH = WScript.CreateObject("WScript.Shell")
txtFolderToOpen = "language/ENG.HTML"
SH.Run txtFolderToOpen
Set SH = Nothing
end if

Slordig Slordig ik weet t !!! :-P