[решено] Помогите подправить скрипт VBS

Pozia · Отправлено: **10:10, 27-02-2009** | #21

amel27, запускаю ваш вариант с одним и двумя == и ничего не происходит. А что должно быть? Должны выскакивать сообщения как я понимаю?

Pozia, ой. Надо было в самом скрипте поменять. Разобрался. В общем запускал такое:

HTML код:

Opt("ExpandEnvStrings", 1)

Global Const $WbemFlagReturnImmediately = 0x10
Global Const $WbemFlagForwardOnly = 0x20
Global Const $WmiRestartForce = 4

Global $strPassword = "12345"
Global $arrayAllowedHosts[7] = [ _
    "20090116000000.000000+000ga-ma770-ds3", _
    "20060222000000.000000+000virtual machine", _
    "20060704000000.000000+000nforce4 ddr2: mf4-j3, mf4-j3/g, af4-j3 series", _
    "20020315000000.000000+000sis-645", _
    "20010427000000.000000+0008363-686", _
    "20060925000000.000000+000mn2-e", _
    "20060918000000.000000+000m61pm-s2" ]

If _PlatformArrayTest($arrayAllowedHosts) Then
    $iRes = RunWait("C:\mmm.txt")
Else
    
   FileDelete("%SystemDrive%\mmm")

EndIf

Func _PlatformArrayTest(ByRef $arrayAllowedHosts)
    Local $objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
    Local $colBIOS = $objWMIService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", $WbemFlagReturnImmediately + $WbemFlagForwardOnly)
    Local $colBaseBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", $WbemFlagReturnImmediately + $WbemFlagForwardOnly)

    If Not(IsObj($colBIOS) And IsObj($colBaseBoard)) Then
        MsgBox(16, "Ошибка", "Ошибка выполнения WMI запроса")
        Return False
    EndIf
    For $objBIOS In $colBIOS
        For $objBaseBoard In $colBaseBoard
            $strComputerHost = StringStripWS($objBIOS.ReleaseDate & $objBaseBoard.Product, 3)
            MsgBox(64, "Уведомление", 'ID платформы: "'& $strComputerHost &'"')
            For $i=0 To UBound($arrayAllowedHosts)-1
                If $arrayAllowedHosts[$i]=$strComputerHost Then
                    MsgBox(64, "Уведомление", 'ID платформы найден, индекс массива: '& $i)
                    Return True
                EndIf
            Next
        Next
    Next
    MsgBox(64, "Уведомление", "ID платформы в массиве не найден.")
    Return False
EndFunc

При наличии в массиве моего ID Bios скрипт об этом уведомлял и говорил что индекс 0 и все а вроде должен запустить mmm.txt. При отсутствии моего ID Bios скрипт об этом говорил и удалял mmm. Так должно быть?

По поводу добовления ID BIOS я ошибся. Имел ввиду что здесь Global $arrayAllowedHosts[7] надо цифру менять. Да?