Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VSB script for powershell

None
2 antwoorden
  • 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
  • [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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.