Help with VBScript — OZONE Asylum, home of the Mad Scientists

This page's ID: 28417

Edit Post

Who can edit a post?	The poster and administrators may edit a post. The poster can only edit it for a short while after the initial post.

Your User Name:
Your Password:
Login Options:	Remember Me On This Computer

Your Text: Insert Slimies » Insert UBB Code » Close Last Tag \| All Tags UBB Help	Thanks, just enough to get me where i wanted to be :) [code]Dim objNet On Error Resume Next Set objNet = CreateObject("WScript.NetWork") Dim strInfo strInfo = objNet.ComputerName 'Destroy the Object to free the Memory Set objNet = Nothing strMyString = Mid(strMain, 8, 10) strMyString = Mid(strInfo,7,1) 'We are pulling the lab number from the computer name if strMyString = 1 then PrinterGO = "\\023netcdc1\023Lab1HP4200" msgbox "Lab 1 Printer Installed" elseif strMyString = 2 then PrinterGO = "\\023netcdc1\023Lab2HP4200" msgbox "Lab 2 Printer Installed" elseif strMyString = 3 then PrinterGO = "\\023netcdc1\023Lab3HP4050" msgbox "Lab 3 Printer Installed" elseif PstrMyString = 4 then PrinterGO = "\\023netcdc1\023Lab4HP4200" msgbox "Lab 4 Printer Installed" else msgbox "didn't work" end if 'Sets the printer based on the number pulled from previous function Set objPrinter = CreateObject("WScript.Network") objPrinter.AddWindowsPrinterConnection PrinterGO[/code] [url=http://stansco.com/cgi-bin/nc_ppp.cgi?10076]Synthetic's Chess Player Page[/url] Loading...
Options:	Enable Slimies Enable Linkwords

Edit Post