Arkiv

AddPrinters.vbs

Dim objNetwork, strPrintServer1, strPrintserver2 Set objNetwork = WScript.CreateObject(«WScript.Network») strPrintServer1 = «\\nt-server-1\» strPrintServer2 = «\\thsrv06\» objNetwork.AddWindowsPrinterConnection strPrintServer1 & «BrotherTavle» objNetwork.AddWindowsPrinterConnection strPrintServer1 & «hpLJ5000» objNetwork.AddWindowsPrinterConnection strPrintServer1 & «DSC224c» objNetwork.AddWindowsPrinterConnection strPrintServer1 & «DSC224» objNetwork.AddWindowsPrinterConnection strPrintServer1 & «R2032fax» objNetwork.AddWindowsPrinterConnection strPrintServer1 & «Ricoh2032» objNetwork.AddWindowsPrinterConnection strPrintServer1…

Change PrintServer2.vbs

‘ ‘ Replace printer queues from old server with queues on new server ‘ ‘ Created 20090313 by Inge Brattaas (inge@netpower.no) ‘ Option Explicit On Error Resume Next ‘ ::: Global variables ::: Dim PrintServerOld PrintServerOld = «\\nt-server-1\» Dim PrintServerNew…

ChangePrintServer.vbs

‘ Endre Printer kø thsrv06 – Windows logon script ‘ Author ktb@netpower.no ‘ Version 1 – April 22th 2010 ‘ ——————————————————‘ Option Explicit On Error Resume Next Dim objNetwork, strUNCPrinter strUNCPrinter = «\\thsrv06\FTP1_Ricoh_SH» Set objNetwork = CreateObject(«WScript.Network») ‘ Seksjon for…

sComputer = «.» Set oRegistry=GetObject(«winmgmts:\\» & sComputer & «\root\default:StdRegProv») sKeyPath = «Software\Microsoft\Office\11.0\Outlook\Setup» oRegistry.CreateKey HKEY_CURRENT_USER, sKeyPath sValue = «\\domain.no\PRF\Outlook2003.prf» sValueName = «ImportPRF» oRegistry.SetStringValue HKEY_CURRENT_USER, sKeyPath, sValueName, sValue

‘ Created 20080929 – Inge Brattaas (inge@Netpower.no) ‘Option Explicit ‘On Error Resume Next ‘ init Dim ShowErrors, QuoteChr ShowErrors = CBool(True) ‘ Show messages if errors occur? QuoteChr = Chr(34) Dim FileSysObj, WshShell, AdSysInfo, UserObj, sTHaddress, sTOaddress, sTOTaddress, sTVaddress, sTMNaddress,…

‘Option Explicit On Error Resume Next ‘ init Dim ShowErrors, QuoteChr ShowErrors = CBool(True) ‘ Show messages if errors occur? QuoteChr = Chr(34) Dim FileSysObj, WshShell, AdSysInfo, UserObj, sTHaddress, sTOaddress, sTOTaddress, sTVaddress, sTMNaddress, strUserName, strUserDomain, objGroupDict, objNetwork Set FileSysObj =…

Shortcut to desktop

On Error Resume Next Dim objNetwork, _ objShell, _ objFSO, _ objGroupDict, _ objUser, _ objGroup, _ strUsrName, _ strUserName, _ strUserDomain, _ strUserProfile Set objNetwork = WScript.CreateObject(«WScript.Network») Set objShell = WScript.CreateObject(«Wscript.shell») Set objFSO = CreateObject(«Scripting.FileSystemObject») strUserProfile = objShell.Environment(«PROCESS»)(«UserProfile») strUserName…

Grouplist.csv

Lonn,T:,\\server\lonn$ Huldt_Lillevik,P:,\\srv02\HuldtLillevik$ Data_Access,F:,\\server\data$ Projects_Group,S:,\\file01\Projects$ C352_2ETG,!!,\\server\C352_2ETG CM2320MFP,!!,\\server\CM2320MFP Bizhub_Lager,!!,\\server\Bizhub_Lager

VBS Logon with Grouplist.csv

‘—————————————————- ‘Remove all Network printers but not local printers Set WshNetwork = WScript.CreateObject(«WScript.Network») Set Printers = WshNetwork.EnumPrinterConnections For i = 0 to Printers.Count – 1 Step 2 If Left(ucase(Printers.Item(i+1)),2) = «\\» Then ‘WScript.Echo Printers.Item(i+1) ‘WSHNetwork.RemovePrinterConnection Printers.Item(i+1) End IF Next On…

ChangeDriveLabels.vbs

mDrive = «f:\» Set oShell = CreateObject(«Shell.Application») oShell.NameSpace(mDrive).Self.Name = «Felles» mDrive = «k:\» Set oShell = CreateObject(«Shell.Application») oShell.NameSpace(mDrive).Self.Name = «Administrasjon» mDrive = «t:\» Set oShell = CreateObject(«Shell.Application») oShell.NameSpace(mDrive).Self.Name = «Trafikk» mDrive = «r:\» Set oShell = CreateObject(«Shell.Application») oShell.NameSpace(mDrive).Self.Name = «Verksted»…

This site is protected by WP-CopyRightPro