2 Replies Latest reply on Jun 8, 2006 3:18 AM by DSMForum

    Unvollständige Befehlsauswahl im Script

    Kai1 Apprentice
      Hi,

      ich hab das Problem das ich für ein Script die IF-Bedingung "IsFileInUse"
      benötige, aber diese nicht angezeigt wird.
      Ich vermute das eine oder mehrere DLLs nicht richtig registriert sind. Kennt
      jmd das Problem oder weiss an welcher DLL es liegen kann?

      Hab gerade auch noch den Cumu auf Build 1352 eingespielt, brachte aber auch
      keine Besserung.

      MfG Kai


        • 1. Re: Unvollständige Befehlsauswahl im Script
          DSMForum Master
          kai schrieb:
          > Hi,
          >
          > ich hab das Problem das ich für ein Script die IF-Bedingung "IsFileInUse"
          > benötige, aber diese nicht angezeigt wird.
          > Ich vermute das eine oder mehrere DLLs nicht richtig registriert sind. Kennt
          > jmd das Problem oder weiss an welcher DLL es liegen kann?
          >
          > Hab gerade auch noch den Cumu auf Build 1352 eingespielt, brachte aber auch
          > keine Besserung.
          >
          > MfG Kai
          >
          >


          Hallo Kai,

          ziemlich ungewöhnlich, hast du mal den Befehl unter alle gesucht? Er wird bei mir unter "System" und unter "Alle" unterhalb
          des Reiters Bedingungen angezeigt.
          Unter umständen ist auf dem NI-Server etwas auch nicht mehr ganz in Ordnung. Rufe mal den NI-Manager über den Agent auf.

          %programfiles%\NetInst\NiAgnt32.exe /start:nimgr32

          vielleicht bringt das ja schon was. Wenn nicht würde ich mal ein NI-Versionscheck und ein NI-Health-System machen.

          Wenn es geht mach mal ein Screenshot von der Befehlsauswahl im Bedingungsfeld und lad das mal mit hoch.



          schöne Grüße

          Andreas Münzberg

          --
          (Netinstall 5.8 und OSD3.2 sowie FPSPD)

          andreas(punkt)muenzberg(at)ilb.de
          • 2. Re: Unvollständige Befehlsauswahl im Script
            DSMForum Master
            Hallo Kai,

            falls du wirklich unterschiedliche und nicht zusammen passende DLL's hast führe mal folgendes VB-Script aus und schicke mir mal die Excel-Datei die das Script
            erstellt per Mail zu. (Mail-Addr. steht spamgeschützt in der Sig)

            du mußt Zugriff auf die NI-Freigabe haben und Excel ab 97 muss auf dem Client installiert sein.

            Ändere vor dem Start noch den Server-Namen und die NI-Freigabe. Wenn du mehrere Server hast kann ich dir auch eine Ergänzung dazu machen die mehrere Server auf
            einmal überprüft.(Ich nehme das auch schon mal für 20 Server - aber bisher noch nie für NI-Server)

            Wenn ich das mit meiner mal vergleichen soll müsste bei dir mind. Build 1354 drauf sein(am besten natürlich genau diese Build).

            schöne Grüße

            Andreas Münzberg


            set wshshell=CreateObject("Wscript.Shell")

            set objxl = CreateObject("Excel.Application")
            objxl.visible = true
            objxl.workbooks.add
            objxl.cells(3,3).value = "bitte warten..."
            objxl.activesheet.Columns("A:F").EntireColumn.AutoFit

            set fs = CreateObject("Scripting.FileSystemObject")
            set wshnet = CreateObject("WScript.Network")
            ComputerName = wshnet.ComputerName
            set obj = GetObject("WinNT://" & ComputerName )
            'on error resume next
            Const xlNone = -4142
            Const xlCenter = -4108
            Const xlDownward = -4170
            Const xlNormal = -4143
            Const xlAutomatic = -4105
            Const xlThin = 2
            Const xlLeft = -4131
            Const xlRight = -4152
            Const xlTop = -4160
            Const xlBottom = -4107
            Const xlToLeft = -4159
            Const xlHorizontal = -4128
            Const xlToRight = -4161
            Const xlSolid = 1
            Const xlDiagonalDown = 5
            Const xlDiagonalUp = 6
            Const xlEdgeLeft = 7
            Const xlEdgeTop = 8
            Const xlEdgeBottom = 9
            Const xlEdgeRight = 10
            Const xlInsideVertical = 11
            Const xlInsideHorizontal = 12
            Const xlContinuous = 1

            with objxl

            ..Cells(1,4).value = "Übersicht NI-Dateien "


            ..Cells(4,1).value = "NI-Server-Name" 'Kannst hier ja noch die Bezeichnung eintragen... falls du mehrere Server hast...

            '########################################HIER NOCH DEINE DATEN FÜR SERVER UND NI-FREIGABE EINTRAGEN !!! #############
            set oFolder = fs.GetFolder("\\NI-Server\NI-Freigabe")
            set oFiles = oFolder.Files
            zelle1 = 6

            for each ofile in ofolder.Files
            ..cells(zelle1,1).value = ofile.name & "   " & fs.GetFileVersion(ofile)
            zelle1 = Zelle1 + 1
            next

            ..Cells(3,3).value = ""

            '################Formatierung###########################################


            ..Range("D1").select
            ..Selection.Font.Bold = True
            ..Selection.Interior.ColorIndex = 5
            ..Selection.Font.ColorIndex = 2
            ..Selection.Interior.Pattern = 1 'xlSolid

            ..Range("A4:K4").select
            ..Selection.Font.Bold = True
            ..Selection.Interior.ColorIndex = 1
            ..Selection.Font.ColorIndex = 2
            ..Selection.Interior.Pattern = 1 'xlSolid


            ..activesheet.Columns("A:K").EntireColumn.AutoFit
            ..Range("D11").Select
            end with



            --
            (Netinstall 5.8 und OSD3.2 sowie FPSPD)

            andreas(punkt)muenzberg(at)ilb.de