what is exact problem?
1) you need to connect to printer (watch line breaks):
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objWSHNet = CreateObject("WScript.Network")
objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, strUsername, strPassword
Set objPrinter = objFS.CreateTextFile("LPT1:", True)
objPrinter.Write(strMessage)
objPrinter.Close
2) you need esc/p2 printer command language to control:
early printer manuals contained all the codes at apendix, now you need to search the internet for "esc/p2 printer command language