Varför i VBScript och inte i VB ?

Datatyper?

i vb:

Dim myValue As Object
Dim mode As String
Dim strBuild As Variant
Dim doc As String

i VBScript

Dim myValue, mode, strBuild, doc

Felmeddelande? Vilken del av koden är det som inte fungerar?

IIS server tar inte emot infon när jag försöker via VB

myValue.Put "ScriptMaps", strBuild

Vad är myValue då?

det är ett object som är kopplat till iis servern

set myValue = GetObject("IIS://...")

någon sem vet?

Tja, jag vet inte jag. Har du lyft in rätt referenser i projektet? Får du felmeddelande? Hur långt kommer du när du kör i debugläge?

kommer hit!

myValue.Put "ScriptMaps", strBuild

men om jag gör så här funkar det

strBuild = Array("dddd", "ddd")

men hur skall den funka när jag har hela värdet i en lång sträng
då blir det ju Array(""fff", "fff"")

Det är inte nåt löjligt enkelt som att Put inte gillar att du försöker lägga till en tom scriptmappning? Vad händer om du tar bort det sista "#" i strBuild?

testade det med...men nop! funkar inte

det skulle är ju att det går bra med VBScript i en ASP fil
men inte i en VB funktion

Red. jag är ju då blind... :r

Har ingen riktig förklaring på skillnaderna. Men varför inte försöka gå runt problemet?

Funkar:

Dim strBuild As String
Dim strArray() As String

strArray = split(strBuild, "#") 
myValue.Put "ScriptMaps", strArray

?

Eller, varför inte:

for i=0 to Ubound(strArray)-1
	myValue.Put "ScriptMaps", strArray(i)
next

?

den sa ej ifrån på följande kod

for i=0 to Ubound(strArray)-1
	myValue.Put "ScriptMaps", strArray(i)
next

MEN resultatet blev att det tillslut bara var det sitta värdet som var sparat :( *orkar inte mer nu!*

orkar inte mer nu

Knappt jag heller .. Men har du nån mer fullständigt kod så man kan testa själv vid tillfälle?

OBS: Du behöver inte klippa in några A4-sidor. Bara precis så mycket så man förstår vad du försöker göra och vad myValue egentligen refererar till.

här kommer det viktigaste

Private Sub Command1_Click()

Dim myValue As Object
Dim strBuild As Variant
Dim doc As String

Set myValue = GetObject("IIS://localhost/W3SVC/1/root")

strBuild = Array(".htw,C:\WINNT\System32\webhits.dll,3,GET,HEAD,POST", ".ida,C:\WINNT\System32\idq.dll,3,GET,HEAD,POST", ".idq,C:\WINNT\System32\idq.dll,3,GET,HEAD,POST", ".asp,C:\WINNT\System32\inetsrv\asp.dll,1,GET,HEAD,POST,TRACE", ".cer,C:\WINNT\System32\inetsrv\asp.dll,1,GET,HEAD,POST,TRACE", ".cdx,C:\WINNT\System32\inetsrv\asp.dll,1,GET,HEAD,POST,TRACE", ".asa,C:\WINNT\System32\inetsrv\asp.dll,1,GET,HEAD,POST,TRACE", ".htr,C:\WINNT\System32\inetsrv\ism.dll,1,GET,POST", ".idc,C:\WINNT\System32\inetsrv\httpodbc.dll,1,OPTIONS,GET,HEAD,POST,PUT,DELETE,TRACE", ".shtm,C:\WINNT\System32\inetsrv\ssinc.dll,1,GET,POST", ".shtml,C:\WINNT\System32\inetsrv\ssinc.dll,1,GET,POST", ".stm,C:\WINNT\System32\inetsrv\ssinc.dll,1,GET,POST", ".printer,C:\WINNT\System32\msw3prt.dll,1,GET,POST")

myValue.Put "ScriptMaps", vbNull

myValue.Put "ScriptMaps", strBuild 

myValue.SetInfo
Set myValue = Nothing
End Sub

man saken är att jag vill ha det som skall läggas i Arrayen först skall ligga i en sträng och sedan slittas upp i en array
för att jag vid olika "mode" skall skicka in olika värden

koden ovan skall funka som den är
men jag vill ha ändringar enligt vad jag beskrev precis

detta script kräver ju dock att man har IIS servern installerad
det den gör är att den ändrar "Application Mappings"

OK. Nu har jag tittat på det. Problemet tycks vara att ScriptMaps varken är en array av strings eller en variant, utan en array av varianter. (Split i VB kan inte hantera detta på samma automatiska sätt som VBScript.)

Dim myValue As Object
Dim strBuild As String
Dim doc As String
Dim arrVarBuild() As Variant
Dim arrStringBuild() As String, i as Integer

Set myValue = GetObject("IIS://localhost/W3SVC/1/root")
strBuild = ".htw,C:\WINNT\System32\webhits.dll,3,GET,HEAD,POST#.ida,C.. osv

arrStringBuild = Split(strBuild, "#")
'Flytta över från string-array till variant-array.
ReDim arrVarBuild(UBound(arrStringBuild))
For i = LBound(arrStringBuild) To UBound(arrStringBuild)
    arrVarBuild(i) = arrStringBuild(i)
Next

myValue.ScriptMaps = arrVarBuild
myValue.SetInfo
Set myValue = Nothing

Känns inte så snyggt, men det funkar iaf.

tack så jätte mycket!! funkar bra :)