VBScript

[StewartKnight]

I'm trying to write a script (stop sniggering at the back), which is going swimmingly ..... except......

I was to specify a file from the command prompt at run time.
I want the file that I specify from WScript.Argument to be read using objFSO.OpenTextFile.

When I do it, i get the error:

C:\stewart7.vbs(50, 3) Microsoft VBScript runtime error: Object doesn't support this property or method: 'WScript.Argument'.

The whole of the function that I'm trying to create is this

Function CheckFile
Set objReadFile = WScript.Argument
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(objReadFile, 1)
set objCreate = objFSO.CreateTextFile("results.txt", 2)


Do While Not objFile.AtEndOfStream
objStewart = objFile.ReadLine

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


Set colPings = objWMIService.ExecQuery _
("Select * From Win32_PingStatus where Address = '" & objStewart & "'")
If Err = 0 Then
Err.Clear
For Each objPing in colPings
If objPing.StatusCode = 0 Then
objResult = objStewart & " available." & "IP Address: " & objPing.ProtocolAddress
Else
objResult = objStewart & " not available."
End If
Next
Else
Err.Clear
If ExecPing = True Then
GetName
End If
End If

objCreate.WriteLine(objResult & ": " & Now)

Loop

objFile.Close
objCreate.Close

wscript.echo "The output has been saved into the file 'results.txt'."

End Function

If I hard code the path, it works fine, but I can't get it to specify from the command prompt!

Any ideas?

[NetworkGeezer]

It's Wscript.Arguments (as in the plural of argument )

In any case Wscript.Arguments is a collection and you are using it in the context of a text string.

[StewartKnight]

I understand why it's not working, what I can't figure is how to get it working

[NetworkGeezer]

Assuming that the file name is the first argument then you could do this

strReadFile = WScript.Arguments(1)
set objFile = objFSO.OpenTextFile(strReadFile, 1)

[StewartKnight]

I think I've got it, I changed it to an inputbox to get the filename!

[NetworkGeezer]

Ok and before anyone says it, yes I know the subscript should be 0 and not 1 for wscript.arguments ops: