Chapter 7: File and Print Service Management Code

Enumerating Shares on a System Using a VBScript Active Server Page

 Dim FileService Dim FileShare Dim ComputerName Dim ComputerDomain ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" Set FileService = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") For Each FileShare In FileService      Response.Write FileShare.Name&"<BR>" Next

Binding to a Specific File Share Using A VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set FileShare = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer/" & ShareName)

Querying the File Share Current User Count Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set FileShare = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer/" & ShareName) Response.Write FileShare.CurrentUserCount

Querying the File Share Description (Comment Field) Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set FileShare = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer/" & ShareName) Response.Write FileShare.Description

Setting a New File Share Description Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName Dim NewFileShareDescription ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" NewFileShareDescription = "New_File_Share_Description" Set FileShare = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName& "/  LanmanServer/" & ShareName) FileShare.Description = NewFileShareDescription FileShare.SetInfo

Querying the File Share Host Computer Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set FileShare = GetObject("WinNT://" & ComputerDomain &"/" & ComputerName & "/  LanmanServer/" & ShareName) Response.Write FileShare.HostComputer

Querying the File Share Maximum Users Property Value Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set FileShare = GetObject("WinNT://" & ComputerDomain &"/" & ComputerName & "/  LanmanServer/" & ShareName) Response.Write FileShare.MaxUserCount

Setting a New Value for the File Share Maximum Users Property Value Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName Dim NewFileShareMaximumUsers ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" NewFileShareMaximumUsers = Maximum_Users_Value Set FileShare = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName& "/  LanmanServer/" & ShareName) FileShare.MaxUserCount = NewFileShareMaximumUsers FileShare.SetInfo

Querying the File Share Path Property Value Using a VBScript Active Server Page

 Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set FileShare = GetObject("WinNT:// "& ComputerDomain & "/" & ComputerName & "/  LanmanServer/" & ShareName) Response.Write FileShare.Path

Creating a Share Programmatically Using a VBScript Active Server Page

 Dim Container Dim FileShare Dim ComputerName Dim ComputerDomain Dim ShareName Dim NewFileSharePath Dim NewFileShareDescription ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" NewFileSharePath = "Path_To_Share" NewFileShareDescription = "File_Share_Comment" Set Container = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") Set FileShare = Container.Create("fileshare", ShareName) FileShare.Path = NewFileSharePath FileShare.Description = NewFileShareDescription FileShare.MaxUserCount = -1 FileShare.SetInfo

Removing a Share Using a VBScript Active Server Page

 Dim Container Dim ComputerName Dim ComputerDomain Dim ShareName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ShareName = "Target_Share_Name" Set Container = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") Call Container.Delete("fileshare", ShareName)

Enumerating User Sessions Using a VBScript Active Server Page

 Dim FileService Dim ComputerName Dim ComputerDomain Dim Session ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" Set FileService = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") For Each Session In FileService.Sessions      Response.Write "Session Name:" & Session.Name & " established by User: " &  Session.User &_ " from Computer: "&Session.Computer&" Connect Time: "&Session.ConnectTime&_ " Idle Time: "&Session.IdleTime & "<BR>" Next

Managing Individual Sessions Using a VBScript Active Server Page

 Dim FileService Dim ComputerName Dim ComputerDomain Dim Session Dim Collection Dim UserSessionName Dim UserSession ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" UserSessionName = "Target_Session" Set FileService = GetObject("WinNT://" & ComputerDomain &"/"& ComputerName & "/  LanmanServer") Set Collection = FileService.Sessions Set UserSession = Collection.GetObject(UserSessionName)

Disconnecting a Single User Session Using a VBScript Active Server Page

 Dim FileService Dim ComputerName Dim ComputerDomain Dim Session Dim Collection Dim UserSessionName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" UserSessionName = "Target_Session" Set FileService = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") Set Collection = FileService.Sessions Collection.Remove (UserSessionName)

Disconnecting All User Sessions Using a VBScript Active Server Page

 Dim FileService Dim ComputerName Dim ComputerDomain Dim Session Dim Collection ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" Set FileService = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") Set Collection = FileService.Sessions For Each Session In Collection      Collection.Remove (Session.Name) Next

Enumerating Open Resources Using a VBScript Active Server Page

 Dim FileService Dim ComputerName Dim ComputerDomain Dim Resource ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" Set FileService = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") For Each Resource In FileService.Resources      Response.Write "ResourceID: "& Resource.Name &" Resource: "& Resource.Path & "  Opened by: " &_ Resource.User & " Lock Count: " & Resource.LockCount & "<BR>" Next

Examining the Properties of a Single Open Resource Using a VBScript Active Server Page

 Dim FileService Dim ComputerName Dim ComputerDomain Dim ResourceUser Dim ResourcePath Dim Resource Dim Collection ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" ResourceUser = "Target_Username" Set FileService = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/  LanmanServer") Set Collection = FileService.Resources Response.Write "User "& ResourceUser & " has the following resources open:" & "<BR>" For  Each Resource In Collection      If Resource.User = ResourceUser Then           Response.Write Resource.Path & "<BR>"      End If Next

Enumerating Print Queues Using a VBScript Active Server Page

 Dim ComputerName Dim ComputerDomain Dim Container Dim PrintQueue ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" Set Container = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName) Container.Filter = Array("PrintQueue") For Each PrintQueue In Container      Response.Write PrintQueue.Name & amp;"<BR>" Next

Binding a Specific Print Queue Using a VBScript Active Server Page

 Dim ComputerName Dim ComputerDomain Dim PrintQueueName Dim PrintQueue ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName)

Querying Single-Valued Print Queue Properties Using a VBScript Active Server Page

 Dim ComputerName Dim ComputerDomain Dim PrintQueueName Dim PrintQueue ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) Response.Write PrintQueue.Model

Querying Multi-Valued Print Queue Properties Using a VBScript Active Server Page

 Dim ComputerName Dim ComputerDomain Dim PrintQueueName Dim PrintQueue Dim Item ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) If IsArray(PrintQueue.PrintDevices) Then     For Each Item In PrintQueue.PrintDevices          Response.Write Item & "<BR>"     Next Else     Response.Write PrintQueue.PrintDevices & "<BR>" End If

Querying Queue Status Using a VBScript Active Server Page

 Dim PrintQueue Dim ComputerName Dim ComputerDomain Dim PrintQueueName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/"  PrintQueueName) Response.Write PrintQueue.Status

Pausing a Print Queue Using a VBScript Active Server Page

 Dim PrintQueue Dim ComputerName Dim ComputerDomain Dim PrintQueueName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) PrintQueue.Pause

Resuming a Print Queue Using a VBScript Active Server Page

 Dim PrintQueue Dim ComputerName Dim ComputerDomain Dim PrintQueueName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) PrintQueue.Resume

Enumerating Print Jobs in a Print Queue Using a VBScript Active Server Page

 Dim PrintQueue Dim ComputerName Dim ComputerDomain Dim PrintQueueName Dim PrintJob ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) For Each PrintJob in PrintQueue.PrintJobs      Response.Write PrintJob.Name & " " & PrintJob.Description & " " & PrintJob.User & "  " & PrintJob.TotalPages & "<BR>" Next

Changing the Priority of a Queued Print Job for a Specific Username Using a VBScript Active Server Page

 Dim PrintQueue Dim ComputerName Dim ComputerDomain Dim PrintQueueName Dim PrintJob Dim UserToPrioritize ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" UserToPrioritize = "User_To_Elevate_Priority" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) For Each PrintJob in PrintQueue.PrintJobs      If PrintJob.User = UserToPrioritize Then           PrintJob.Priority = 99           PrintJob.SetInfo      End If Next

Removing Jobs from the Print Queue Using a VBScript Active Server Page

 Dim PrintQueue Dim PrintJob Dim ComputerName Dim ComputerDomain Dim PrintQueueName Dim Collection Dim UserToRemove ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" UserToRemove = "User_To_Remove_From_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) Set Collection = PrintQueue.PrintJobs For Each PrintJob In PrintQueue.PrintJobs      If PrintJob.User = UserToRemove Then           Collection.Remove (CStr(PrintJob.Name))      End If Next

Purging All Print Job Entries from the Queue Using a VBScript Active Server Page

 Dim PrintQueue Dim ComputerName Dim ComputerDomain Dim PrintQueueName ComputerDomain = "Domain_To_Manage" ComputerName = "Target_Computer_Name" PrintQueueName = "Target_Print_Queue" Set PrintQueue = GetObject("WinNT://" & ComputerDomain & "/" & ComputerName & "/" &  PrintQueueName) PrintQueue.Purge

Top