VBScript - If computername = then

By Guest
in Microsoft (Windows)

 Share

Recommended Posts

Guest

Posted
Posted

I need to create a script that is basically mapping drives and printers. However there is one PC (a terminal server) which I do not want to map printers to as client's already have printer redirection enabled on their TS Clients.

I have a vbscript which currently specifies

WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR001"
WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR002"
WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR003"

I need something that will baslically do

IF COMPUTERNAME = USR-TS001 THEN

  GOTO END

ELSE

WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR001"
WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR002"
WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR003"

END

I have seen example scripts for batch files but I would sooner be using a vbscript.

I am far from being any use at coding. Any help would highly appreciated.

Link to comment
https://www.neowin.net/forum/topic/624009-vbscript-if-computername-then/
Share on other sites
Grand Master

BGM

Posted
Posted (edited)

does this help?

Dim obj
 set obj = CreateObject("Wscript.Network")

wscript.echo obj.ComputerName 'for testing

If obj.ComputerName = "USR-TS001" Then
	'do nothing
Else
	WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR001"
	WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR002"
	WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR003"
End if

the machine name test does seem to be case sensitive too, so you might want to sort that, i.e.

ucase(obj.ComputerName)

Edited by BGM
Veteran

noroom

Posted
Posted 

Dim objNet
Set objNet = CreateObject("WScript.NetWork")

If objNet.ComputerName <> "USR-TS001" Then
	WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR001"
	WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR002"
	WSHNetwork.AddWindowsPrinterConnection "\\USR-SV001\PR003"
End If

I don't know how you declared WSHNetwork, but if it's the same as objNet, you can just use WSHNetwork.ComputerName and get rid of the objNet object.

This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.

  • Posts

    • Bethesda's Deathloop is free to claim on the Epic Games Store this week

      By LoneWolfSL · Posted

      Bethesda's Deathloop is free to claim on the Epic Games Store this week by Pulasthi Ariyasinghe The Epic Games Store's Mega Sale promotion is in its final week, and that means mystery giveaways are soon ending too. For the finale, Epic Games has called in something big from Bethesda, with the Arkane-developed time loop adventure Deathloop coming in as the latest freebie for PC gamers. Alongside it, the indie adventure Ogu and the Secret Forest is also free. Developed by Arkane Lyon and published by Bethesda, Deathloop comes in touting an action-packed campaign involving plenty of time travel shenanigans. The game is set on the mysterious island of Blackreef, where two rival assassins, Colt and Julianna, are trapped in a time loop. The player, as Colt, has to figure out how to eliminate eight targets within a single day to escape the loop. Each of the assassinations can be taken care of in many ways, including stealth, traps, accidents, or simply going in guns blazing. Aside from gunplay, the title also makes use of supernatural systems very similar to the studio's Dishonored franchise, letting players teleport, go invisible, use telekinesis, and more. There is a multiplayer twist here too, where players, as Julianna, can invade the campaigns of others to take the role of the rival assassin, flipping the tables on the main character and his plans. As for Ogu and the Secret Forest, this is a 2024-released indie adventure featuring hand-drawn characters and various types of puzzles. The 2D game involves befriending characters across a fantasy land as baby Ogu, with plenty of exploration, puzzle solving, and boss battles available. The Deathloop and Ogu and the Secret Forest giveaways are now live on the Epic Games Store for all PC gamers. The promotion is slated to last until June 12, giving you seven days to claim a copy for your library permanently. While the summer mystery giveaways are ending, regular freebies will continue to arrive from the Epic Games Store. When this one comes to an end on Thursday, the SEGA-published humorous hospital simulation entry Two Point Hospital is incoming as the next giveaway.
    • 007 First Light's first trailer shows off an action-packed James Bond game

      By pmrd · Posted

      If graphics is all that matters to you go watch a Pixar movie or something, you sound like an absolute baby right now. The game looks great.
    • Court orders Apple to keep web links in the App Store, eroding its iOS payment monopoly

      By +sphbecker · Posted

      For sure!! My take is... If the dev choses to use Apple's payment services, sure, Apple can take a cut. Apple disallowing 3rd party payment processing directly within an app, kind of a gray area, its anti-competitive sure, but I can at least see arguments on both sides. Apple blocking or attempting to take a cut from weblinks is pure evil, there is no possible justification at all. Heck, if we take this to the logical next step, Apple should start demanding a cut of retail transactions if the user used GPS directions on an iPhone to get to the store.
    • From code to combat: Meta CTO calls for Silicon Valley involvement in military contracts

      By cryptic · Posted

      What’s the worst that could happen….
    • 007 First Light's first trailer shows off an action-packed James Bond game

      By Lamp0 · Posted

      The names Bond. Sigma Alpha Bond.

  • Recent Achievements

    • Week One Done
      jbatch earned a badge
      Week One Done
    • First Post
      Yianis earned a badge
      First Post
    • Rookie
      GTRoberts went up a rank
      Rookie
    • First Post
      James courage Tabla earned a badge
      First Post
    • Reacting Well
      James courage Tabla earned a badge
      Reacting Well

  • Popular Contributors

    1. 1
      +primortal
      407
    2. 2
      +FloatingFatMan
      181
    3. 3
      snowy owl
      176
    4. 4
      ATLien_0
      170
    5. 5
      Xenon
      135
    Show More

  • Tell a friend

    Love Neowin? Tell a friend!