I need a hand [WiredBox.Net - Windows Newsgroups]

> Ok I am not a great scripter and hardly use..lets get that out in the
> open. I
> currently have a logon script that I use to push out group membership
> drive
> mappings and printers. I just created a install package for SAP that I
> would
> like to deploy, problem is its an EXE. MSI i would just use GP. First off,
> Can I from a VBS call a exe to install? If so, give me a hand with the
> scripting.. heres my current script.
>
> '*******************************************************************
> '* IFMS Office logon script *
> '* assigned as a group policy to the entire IFMS domain *
> '* *
> '* Created Jan. 28, 2004 Ray Doré *
> '* Change history: April 26, 2004 -Ray: added callout to other*
> '* scripts *
> '* May 4,2005 - Ray: changed order of *
> '* drive mappings *
> '* *
> '*******************************************************************
>
> Const OFFICEADMIN_GROUP = "cn=officeadmin"
> Const MANAGEMENT_GROUP = "cn=management"
> Const CONSULTANTS_GROUP = "cn=consultants"
> Const EMPLOYEES_GROUP = "cn=employees"
> Const INITIATIVES_GROUP = "cn=initiatives"
> Const ADMINISTRATORS_GROUP = "cn=Domain Admins"
> Const TRAINING_GROUP = "cn=training"
> Const BASIS_GROUP = "cn=basis_team"
>
> Set wshNetwork = CreateObject("WScript.Network")
> Set WshShell = WScript.CreateObject("WScript.Shell")
> Set ADSysInfo = CreateObject("ADSystemInfo")
> Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
>
> 'The memberOf attribute of the user object can have no entries,
> 'one, or more than one. You have to account for all three possibilities:
>
> colstrGroups = CurrentUser.memberOf
> If IsEmpty(colstrGroups) Then
> strGroups = ""
> End If
> If TypeName(colstrGroups) = "String" Then
> strGroups = LCase(colstrGroups)
> End If
> If TypeName(colstrGroups) = "Variant()" Then
> strGroups = LCase(Join(colstrGroups))
> End If
>
> 'WScript.Echo strGroups
> 'Training room accounts only
> If InStr(strGroups, TRAINING_GROUP) Then
> wshNetwork.AddWindowsPrinterConnection "\\ifmssrv3\HP613"
> wshNetwork.SetDefaultPrinter "\\ifmssrv3\HP613"
> Wscript.Quit
> END IF
>
> 'map common network drives
> on error resume next
> wshNetwork.MapNetworkDrive "g:", "\\ifmssrv3\ifms"
> wshNetwork.MapNetworkDrive "m:", "\\ifmssrv3\documentation"
> wshNetwork.MapNetworkDrive "j:", "\\ifmssrv3\archives"
>
> 'map network drives based on group membership:
>
> If InStr(strGroups, OFFICEADMIN_GROUP) Then
> wshNetwork.MapNetworkDrive "o:", "\\ifmssrv3\finance"
> wshNetwork.MapNetworkDrive "p:", "\\ifmssrv3\procurement"
> wshNetwork.MapNetworkDrive "h:", "\\ifmssrv3\admin"
>
> ElseIf InStr(strGroups, MANAGEMENT_GROUP) Then
> wshNetwork.MapNetworkDrive "o:", "\\ifmssrv3\finance"
> wshNetwork.MapNetworkDrive "p:", "\\ifmssrv3\procurement"
>
>
> 'ElseIf InStr(strGroups, CONSULTANTS_GROUP) Then
> 'spaceholder for future needs
>
> 'ElseIf InStr(strGroups, EMPLOYEES_GROUP) Then
> 'spaceholder for future needs
>
> End If
>
> If InStr(strGroups, BASIS_GROUP) Then
> wshNetwork.MapNetworkDrive "x:", "\\ifmssrv2\basis$"
> End If
>
> 'additional drive mappings:
> If InStr(strGroups, INITIATIVES_GROUP) Then
> wshNetwork.MapNetworkDrive "t:", "\\ifmssrv3\initiatives"
> End if
>
> wshnetwork.RemovePrinterConnection "\\sapbld2\hp515"
> wshnetwork.RemovePrinterConnection "\\sapbld2\hp617"
> wshNetwork.RemovePrinterConnection "\\sapbld2\HP8150"
> wshNetwork.removePrinterConnection "\\Sapbld2\HP542"
> wshNetwork.removePrinterConnection "\\Sapbld2\HP5500"
> wshNetwork.removePrinterConnection "\\ifmssrv3\HP5500"
>
> 'Printer mappings
> wshNetwork.AddWindowsPrinterConnection "\\ifmssrv3\HP8150"
> wshNetwork.AddWindowsPrinterConnection "\\ifmssrv3\HP515"
> wshNetwork.AddWindowsPrinterConnection "\\ifmssrv3\HP542"
> wshNetwork.AddWindowsPrinterConnection "\\ifmssrv3\HP617"
>
>
>
> If InStr(strGroups, "cn=printer_colour") Then
> wshNetwork.AddWindowsPrinterConnection "\\ifmssrv3\HP5500 Color"
>
> END if
>
> 'set default printer based on location:
>
> If InStr(strGroups, "cn=printer_553") Then
> wshNetwork.SetDefaultPrinter "\\ifmssrv3\HP8150"
>
> Elseif InStr(strGroups, "cn=printer_515") Then
> wshNetwork.SetDefaultPrinter "\\ifmssrv3\HP515"
>
> ElseIf InStr(strGroups, "cn=printer_617") Then
> wshNetwork.SetDefaultPrinter "\\ifmssrv3\HP617"
>
> ElseIf InStr(strGroups, "cn=printer_542") Then
> wshNetwork.SetDefaultPrinter "\\ifmssrv3\HP542"
>
> END if
>
> 'insert callouts to other scripts here
> wshShell.RegWrite
> "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\DisableDHCPMediaSense",1,"REG_DWORD"
> WshShell.Run("""\\ifmssrv3\software\teemwork\install_Teemwork_client.vbs""")
>
>
>
> NOW I want to add this..
>
> WshShell.Run"\\ifmssrv3\software\sapgui\Setup\NwSapSetup.exe /Silent
> /Package="IFMSSAP""
>
>
> would it work? I keep getting ending errors.
>
>
>