dim Target Target=InputBox("Enter Target Computer: ","Carrier Pigeon v1.7 (TheKnight)") If Target="" Then WScript.Quit End IF dim begin begin=MsgBox ("Begin conversation with " & target & "?",36,"Carrier Pigeon v1.7") If begin = vbNo Then WScript.Quit End If dim message message="0" Do Until message="" message=InputBox("Enter Message: " & vbcr & vbcr + _ "No Value sends a blank message" & vbcr + _ "Press Cancel or Alt+F4 to close the window","" & Target," ",13500,100) Set fs=CreateObject("Scripting.FileSystemObject") strFileName = fs.BuildPath(Wscript.ScriptFullName & "\..", "~msngr.bat") strFileName = fs.GetAbsolutePathName(strFileName) Set ts = fs.OpenTextFile(strFileName, 2, True) ts.WriteLine "@echo off" ts.WriteLine "set message=" & message ts.WriteLine "set target=" & Target ts.WriteLine "net send %Target% %message%" ts.Close dim shell set shell=createobject("wscript.shell") shell.Run "~msngr.bat",2 Loop