Et Objekt er obligatorisk:"

Jeg sidder og leger lidt med at printer substituerings script jeg har lavet, men vil gerne skrive resultatet i en fil, men jeg får flg. fejl "Et Objekt er obligatorisk:"" i linie 18,1. (Myfile.writeline)

Dim FSO, MyFile
Set oWshNetwork = CreateObject("WScript.Network")
Set oPrinters = oWshNetwork.EnumPrinterConnections
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO.CreateTextFile("c:\testfile.txt", True)


For i = 0 to oPrinters.Count - 1 Step 2
sPrnPath = oPrinters.Item(i+1)
' Vis Netværks printere (UNC baserede "\\"
If Left(sPrnPath, 2) = "\\" Then
'WScript.Echo sPrnPath
Select Case sPrnPath
Case "\\anders\Udlejning - CD37"
oWshNetwork.RemovePrinterConnection "\\anders\Udlejning - CD37", true, true
oWshNetwork.AddWindowsPrinterConnection "\\anders\Udlejning - CD37"
'Wscript.Echo "\\anders\Inspektør - CD37 removed, and added \\anders\Udlejning - Stue "
MyFile.Writeline "Computer name: " & WshNetwork.ComputerName & "Removed \\anders\Inspektør - CD37 and added \\anders\Udlejning - Stue"
MyFile.Close
End Select
End If
'Set TextFile = Nothing
'Set oWshNetwork = Nothing
'Set FSO = Nothing
Next


PS

Ved godt der er en case sætning med kun 1 case, men bare roligt der kommer flere  :)