asked on

VBS-script: call a .vbs-file within a vbs-script

Hi alle, I have this vbs-script in which I want to call another vbs-script at the top:

Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup

' Her defineres grupperne
Const ITdrift = "cn=itdrift"
Const ITPrinter = "cn=it-printer"
Const Hotelafd = "cn=hotelafd"
Const Aarhus = "cn=århus"
Const Bogholderi = "cn=bogholderiet"
Const Users_Group = "cn=users"
Const Billetafd = "cn=billetafdelingen"
Const RBU = "cn=rbu"

' Opret objekter mv
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

' ****************************************************************************************
' Hvis medlem af ITdrift, add printers
If InStr(strGroup, lcase(ITdrift)) Then
WScript.Echo "Du er medlem af ITdrift - installerer dine printere..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\omada\HP LaserJet 2300 Series PS"
objNetwork.AddWindowsPrinterConnection "\\omada\Canon CLC-iR C3200 Billetkontoret"
objNetwork.AddWindowsPrinterConnection "\\omada\hp color LaserJet 2550 PS"
objNetwork.AddWindowsPrinterConnection "\\omada\HP LaserJet 2400 Series PS"
' objNetwork.SetDefaultPrinter "\\omada\HP LaserJet 2400 Series PS"
' objNetwork.MapNetworkDrive "h:", "\\Server\Users\" _

ElseIf InStr(strGroup, lcase(Users_Group)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************
' Hvis medlem af Hotelafd, add printers
If InStr(strGroup, lcase(Hotelafd)) Then
WScript.Echo "Du er medlem af Hotelafd - installerer dine printere..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\omada\hp color LaserJet 2550 PS"
objNetwork.AddWindowsPrinterConnection "\\omada\HP LaserJet 2400 Series PS"
' objNetwork.SetDefaultPrinter "\\omada\HP LaserJet 2400 Series PS"

ElseIf InStr(strGroup, lcase(Hotelafd)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************
' Hvis medlem af Aarhus, add printers
If InStr(strGroup, lcase(Aarhus)) Then
WScript.Echo "Du er medlem af Aarhus - installerer dine printere..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\aar-print\HP Color LaserJet 3600"
objNetwork.AddWindowsPrinterConnection "\\aar-print\HP LaserJet 4200 PCL 6"
objNetwork.AddWindowsPrinterConnection "\\aar-print\HP LaserJet 4200 PCL5e"
' objNetwork.SetDefaultPrinter "\\aar-print\HP LaserJet 4200 PCL5e"
objNetwork.MapNetworkDrive "t:", "\\aar-print\coupons\" _

ElseIf InStr(strGroup, lcase(Aarhus)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************
' Hvis medlem af Billetafdelingen, add printers
If InStr(strGroup, lcase(Billetafd)) Then
WScript.Echo "Du er medlem af Billetafdelingen - installerer dine printere..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\omada\Billetafd_1 PCL5"
' objNetwork.SetDefaultPrinter "\\omada\Billetafd_1 PCL5"

ElseIf InStr(strGroup, lcase(Aarhus)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************
' Hvis medlem af Bogholderiet, add printers
If InStr(strGroup, lcase(Bogholderi)) Then
WScript.Echo "Du er medlem af Bogholderiet - installerer dine printere..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\omada\Bogholderiet PCL 5"
objNetwork.AddWindowsPrinterConnection "\\omada\Bogholderiet PCL 6"
objNetwork.SetDefaultPrinter "\\omada\Bogholderiet PCL 5"

ElseIf InStr(strGroup, lcase(Aarhus)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************
' Hvis medlem af RBU, add printers
If InStr(strGroup, lcase(RBU)) Then
WScript.Echo "Du er medlem af RBU - installerer dine printere..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\omada\RBU"
' objNetwork.SetDefaultPrinter "\\omada\RBU"

ElseIf InStr(strGroup, lcase(Aarhus)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************
' Hvis medlem af ITPrinter, add printers
If InStr(strGroup, lcase(ITPrinter)) Then
WScript.Echo "Du er medlem af ITPrinter-gruppen (HP 2400-printeren i det lille printerrum på 6.sal) - installerer..."
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\omada\IT-Printer"
objNetwork.SetDefaultPrinter "\\omada\IT-Printer"

ElseIf InStr(strGroup, lcase(Aarhus)) Then
' WScript.Echo " Du er ikke medlem af nogen gruppe med printere tilknyttet "

End If
' ****************************************************************************************

WScript.Quit

How do I do that?

jindalankush

just calling scripts name
E.g
call wscripts2

Billetkontoret

ASKER

ehm - I know nothing about this but putting this in an empty .vbs-file fails: call wscripts2.

RobSampson

Hi, at the top, put this:

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strScriptName = "myScript.vbs"
strScriptName = objFSO.GetFile(strScriptName).ShortPath
objShell.Run "wscript " & strScriptName, 1, True
Set objShell = Nothing
Set objFSO = Nothing

Regards,

Rob.

Billetkontoret

ASKER

I have this at the very top of my script now:

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strScriptName = "slet-printere.vbs"
strScriptName = objFSO.GetFile(strScriptName).ShortPath
objShell.Run "wscript " & strScriptName, 1, True
Set objShell = Nothing
Set objFSO = Nothing

Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup

' Her defineres grupperne
Const ITdrift = "cn=itdrift"
Const ITPrinter = "cn=it-printer"
---------------------------------------------------------
I get a compilation-error:
Expected statement, line 10 char 1.
This is line 10: Dim objNetwork, objUser, CurrentUser

ASKER CERTIFIED SOLUTION

RobSampson

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Billetkontoret

ASKER

This worked great! You're the man Rob :)