Microsoft Cluster script toevoegen

[Jogai]

Bij het toevoegen van een script aan een cluster heb ik problemen. Het cluster is op basis van win2003r2. Heb al vaker een script toegevoegd, maar dat was geen probleem. Dit script heb ik helemaal zelf gebakken. Als ik het echter zonder de entrypoints run geeft het geen problemen. Bij het toevoegen geeft hij echter toch een foutmelding:

Het cluster log vermeldt dat het aan het begin van regel 26 fout gaat. Wat doe ik verkeerd?

VBScript:

Resource.LogInformation("Restoring of shares is started.")

Function Open()
    Resource.LogInformation("Share restore open function is started.")
    Dim PATH(2) 
    Dim NAME(2) 
    Dim TYPE_SHARE(2)
    Dim MAX_CONN(2)
    Dim DESCRIPTION(2)

    PATH(1) = "I:\data"
    NAME(1) = "Data1"
    TYPE_SHARE(1) = 0
    MAX_CONN(1) = 25
    DESCRIPTION(1) = "DataShare voor  O"


    PATH(2) = "I:\projects"
    NAME(2) = "ProjectsO"
    TYPE_SHARE(2) = 0
    MAX_CONN(2) = 25
    DESCRIPTION(2) = "ProjectShare voor  O"

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set objNewShare = objWMIService.Get("Win32_Share")
    Set objShell = Wscript.CreateObject("Wscript.Shell")
    For i=1 to 2
    errReturn = objNewShare.Create (PATH(i), NAME(i), TYPE_SHARE(i), MAX_CONN(i), DESCRIPTION(i))

    select Case errReturn
    case 0  
        objShell.LogEvent 0, "Share for ontwikkel created! Code: " & errReturn
    case 22
        objShell.LogEvent 4, "Share for ontwikkel exists! Code: " & errReturn
    case else
        objShell.LogEvent 1, "Share for ontwikkel creating error code: " & errReturn
    end select  
    Next
End Function 

Function LooksAlive( )
    LooksAlive = true
End Function
 
Function IsAlive( )
    IsAlive = true
End Function

Function Close()
    Close = 0
End Function

[Matis]

Ik heb zelf niet zoveel verstand van Win Servers maar dit leert me dit.

Edit: Ik zie nu pas dat je error-ID verschilt met de gevonden url's van me .

Is je padding wel goed? Ik bedoel, Windows wil soms liever // dan \ zoals jij op regel 11 en 18 hebt staan.

[ Voor 17% gewijzigd door Matis op 17-03-2009 09:20 . Reden: Extra tekst, Typo's ]

[Creepy]

Het cluster log vermeldt dat het aan het begin van regel 26 fout gaat. Wat doe ik verkeerd?

Zo werkt het hier niet Waar denk je dat het mis gaat? Wat heb je zelf al geprobeerd om dit op te lossen? Het lijkt er nu op dat je je vraag hier maar dumpt en hoopt dat wij het voor je gaan oplossen. Je zult in eerste instantie toch echt zelf even aan de slag moeten gaan en ook vermelden wat je hebt gedaan, waarom dat niet werkte etc. Zo hebben wij meer informatie en voorkom je dat je tips krijgt waar je niks aan hebt.

Zie ook PRG Beleid en Het algemeen beleid #topicplaatsen

[Jogai]

Ik weet ondertussen wel hoe het werkt hier. Daarom heb ik al een dag het internet af lopen struinen naar een oplossing. Aangezien de functies uit het script geen problemen gaven, en de entrypoints ook niet, hoopte ik dat hier iemand iets zinnigs kon zeggen over de combinatie ervan.
Anyways, voor dit geval is het beter om dit te gebruiken ben ik nu achter:
http://technet.microsoft.com/en-us/library/cc759747.aspx
Blijkbaar heb ik in de verkeerde richting lopen zoeken...

[ Voor 6% gewijzigd door Jogai op 17-03-2009 13:27 ]