VSB script for powershell

[anoniem]

Hello, ik ben bezig een boek aan het lezen over powershell. Daarin staat een handig scriptje. Alleen lukt het mij niet, hij geeft fouten. Heeft iemand een idee? hierbij mijn code (die ik niet zelf geschreven heb voor alle duidelijkheid): ----------------- strComputer = "." wmiNS = "\root\cimv2" wmiQuery = "Select name from win32_Product where name like '%.NET Framework 2.0%'" wmiQuery1 = "Select " from Win32_OperatingSystem" WScript.Echo "Retrieving settings on " & _ CreateObject("wscript.network").computername & " this will take some time ..." Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS) Set colItems = objWMIService.ExecQuery(wmiQuery) set colItems1= objWMIService.ExecQuery(wmiQuery1,,RtnImmedFwdOnly) If colItems.count <>1 Then WScript.Echo ".NET Framework 2.0 is required for PowerShell" Else WScript.Echo ".NET Framework 2.0 is detected" End If For Each objItem1 In colItems1 osVER= objItem1.version osSP= objItem1.ServicePackMajorVersion Next Select Case osVER Case "5.1.2600" if osSP < 2 Then WScript.Echo "Service Pack 2 is required on Windows XP" Else WScript.Echo "Service Pack",osSP,"detected on",osVER End if Case "XXX" WScript.Echo "No service pack is required on Windows Vista" Case Else WScript.Echo "Windows PowerShell does not install on windows version " & osVER End Select --------- Alvast bedankt Matthias

[anoniem]

[quote:e8b1cdf8e7="djkeyser"] Alleen lukt het mij niet, hij geeft fouten. Heeft iemand een idee? [/quote:e8b1cdf8e7]Het was handig geweest als je verteld had wat voor fouten het script geeft. Enniewee, kijk eens naar deze regels, daar gaat het volgens mij fout: [code:1:e8b1cdf8e7] wmiQuery1 = "Select " from Win32_OperatingSystem" [/code:1:e8b1cdf8e7] en [code:1:e8b1cdf8e7] WScript.Echo "Retrieving settings on " & _ CreateObject("wscript.network").computername & " this will take some time ..." [/code:1:e8b1cdf8e7] Ik vermoed dat je deze regels code niet goed hebt overgenomen uit het boek... Tips: - quotes ( " ) toevoegen aan een string variabele gaat niet zomaar :wink: - underscores ( _ ) geven in VB(A/S) aan dat de code op de volgende regel doorgaat Nu moet je er wel uitkomen denk ik. Succes