Option Explicit
Dim sourcefile,ipaddress,objargs
const destfile=tempfile
Const ForWriting = 2
Dim Text
Dim fso,objNet,ServiceObj
Dim txtStream, txtStreamOut
Set objArgs = Wscr ipt.Arguments
If objArgs.Count = 2 Then
sourcefile=objArgs(0)
ipaddress=ob
