Remote Service Restart

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Removing and adding printers I'm moving our printers off the old file server and onto a new print server appliance. I'm using the scripts from this page: http://www.microsoft.com/technet/scriptcenter/scripts/printing/client/default.mspx The problem is that I want it to delete all printer connections coming from \\serverA. And create new ones to shares on serverB. I don't mind having to specify in each script which printers to add, but I don't want to assume to know which printers the computers currently have installed. I just want to delete ALL connections to the old server. This is the script I have now, but it has to be set up knowing which printer is currently installed. And worse yet, after it runs once, the printer is deleted. Then when you run it again (at login) it gives you an error because it can't find the connection. If I could just remove the error from being displayed, then I could just list ALL of the printers from the old print server in the script and that would cover me. Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.RemovePrinterConnection "\\serverA\printer01" Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\serverB\printer01" WshNetwork.AddWindowsPrinterConnection "\\serverB\printer03" WshNetwork.SetDefaultPrinter "\\serverB\printer03" Thanks Brandon Riffel Tag: Remote Service Restart Tag: 190151
  - 2
    - Removing and adding printers I'm moving our printers off the old file server and onto a new print server appliance. I'm using the scripts from this page: http://www.microsoft.com/technet/scriptcenter/scripts/printing/client/default.mspx The problem is that I want it to delete all printer connections coming from \\serverA. And create new ones to shares on serverB. I don't mind having to specify in each script which printers to add, but I don't want to assume to know which printers the computers currently have installed. I just want to delete ALL connections to the old server. This is the script I have now, but it has to be set up knowing which printer is currently installed. And worse yet, after it runs once, the printer is deleted. Then when you run it again (at login) it gives you an error because it can't find the connection. If I could just remove the error from being displayed, then I could just list ALL of the printers from the old print server in the script and that would cover me. Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.RemovePrinterConnection "\\serverA\printer01" Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\serverB\printer01" WshNetwork.AddWindowsPrinterConnection "\\serverB\printer03" WshNetwork.SetDefaultPrinter "\\serverB\printer03" Tag: Remote Service Restart Tag: 190150
  - 3
    - remove nodes from xml How do I remove all Handheld nodes/infomration from xml file? I would like to know how to remove all HandHeld nodes and/or removing HandHelds completly. XML FILE FORMAT <Store> <HandHelds> <HandHeld Number="51" MacAddress="00A0F8623CA0" IPAddress="10.117.80.47" Gateway="10.117.80.1" DNS="172.17.4.12" SubnetMask="255.255.255.0"/> <HandHeld Number="52" MacAddress="00A0F84A1259" IPAddress="10.117.80.48" Gateway="10.117.80.1" DNS="172.17.4.12" SubnetMask="255.255.255.0"/> <HandHeld Number="53" MacAddress="00A0F843E3FF" IPAddress="10.117.80.49" Gateway="10.117.80.1" DNS="172.17.4.12" SubnetMask="255.255.255.0"/> <HandHeld Number="55" MacAddress="00A0F86240C9" IPAddress="10.117.80.51" Gateway="10.117.80.1" DNS="172.17.4.12" SubnetMask="255.255.255.0"/> <HandHeld Number="54" MacAddress="00A0F84A089F" IPAddress="10.117.80.50" Gateway="10.117.80.1" DNS="172.17.4.12" SubnetMask="255.255.255.0"/> <HandHeld Number="56" MacAddress="00A0F84B51FF" IPAddress="10.117.80.52" Gateway="10.117.80.1" DNS="172.17.4.12" SubnetMask="255.255.255.0"/> </HandHelds> </Store> Const StoreXML_DROPOFF_DIR = "C:\Program Files\xml\" Const StoreXML_FileName = "HHInfo.xml" Dim xml Dim HHnodeList Dim HHnode Dim HHNum Dim j Set xml = CreateObject("MSXML.DOMDocument") 'create intance of XML object. xml.async = False xml.load StoreXML_DROPOFF_DIR & StoreXML_FileName Set HHnodeList = xml.selectNodes("//Store/HandHelds/HandHeld") Set HHnode = xml.documentElement.selectSingleNode("//Store/Handhelds") For j = 0 To HHnodeList.length -1 HHNum=HHnodeList(j).Attributes.getNamedItem("Number").value WScript.Echo(HHNum) HHnode.removeChild HHnode.childNodes.Item(HHNum) Next Tag: Remote Service Restart Tag: 190148
  - 4
    - Special Script help needed Good Morning every body. I want to make a script file which will hide Networks from the user. I know I can hide the Network Neighbour hood icon through GP but still user can access the network resources with \\PCNAME or \\DOmainNAme command in File Open menu and they get the every thing they need. Is there anybody have idea about it? Pl help me. Thanks, Tag: Remote Service Restart Tag: 190147
  - 5
    - remove this object Belowe is a script that creates a shortcut in netplaces to a share. How can I edit this so it will now remove this shortcut if the user has it? Set wshShell = WScript.CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") strNetHood = WshShell.SpecialFolders("NetHood") strShareName = strNetHood & "\Amarillo JCAHO" strNetworkPath = "\\amarillodw\Forms" If Not objFSO.FolderExists(strShareName) Then CreateFolderShortcut strShareName,strNetworkPath Else objFSO.DeleteFile(strShareName & "\Target.lnk") Set objShortCut = WshShell.CreateShortcut(strShareName & "\Target.lnk") objShortCut.TargetPath = strNetworkPath objShortCut.Save End If ''''''''''''''''''''''''''''' ' Create Folder Shortcut ''''''''''''''''''''''''''''' sub CreateFolderShortcut(obj,npath) ' Create a folder object set oFolder = objFSO.CreateFolder(obj) ' Create a target shortcut set oShellLink = wshShell.CreateShortcut(obj & "\target.lnk") oShellLink.TargetPath = npath oShellLink.Save ' Create Desktop.ini file and make it hidden+system Set oFile = objFSO.CreateTextFile(obj & "\Desktop.ini", True) oFile.WriteLine("[.ShellClassInfo]") oFile.WriteLine("CLSID2={0AFACED1-E828-11D1-9187-B532F1E9575D}") oFile.WriteLine("Flags=2") oFile.WriteLine("ConfirmFileOp=0") oFile.Close set oAttrib = objFSO.GetFile(obj & "\Desktop.ini") setattribute oAttrib,6 ' Make object read-only setattribute oFolder,1 end sub ''''''''''''''''''''''''''''' ' Set File/Folder Attributes ''''''''''''''''''''''''''''' sub SetAttribute(obj,attr) 'mask for read/write attribute bits ' = readonly+hidden+system+archive rw_bits = 1 + 2 + 4 + 32 oldattr = obj.attributes and rw_bits newattr = oldattr or attr obj.attributes = newattr end sub Tag: Remote Service Restart Tag: 190146
  - 6
    - Response.Write Text with DataField Can someone please shed some light as to why this will not work properly: <% If (News.Fields.Item("Chart").Value) = "" Then Response.Write "Not Available" Else Response.Write "<img src='" & News.Fields.Item("Chart").Value & "'>" End If %> The check works fine...even the first response.write works... but the second response.write never inserts the database field information. I have 3 sets of data in the database, the first and last have data in the "Chart" field (data in field = test), the second is empty. Here is what I get: <img src=''> Not Available <img src=''> Tag: Remote Service Restart Tag: 190142
  - 7
    - global variable needed? I have a file name hard coded in a SQL DTS execute process task as shown below: cmd.exe /c wzunzip \\servername\share\filename.20060411.zip c:\temp\dir\ -o Can I store a variable and call this file to be unzipped with the current day/date? How could I use something like this: Dim sNOW sNOW = Date sNOW = (Year(sNOW)*100 + Month(sNOW))*100 + Day(sNOW) Tag: Remote Service Restart Tag: 190141
  - 8
    - Archiving website logfiles I have a server (our main production one, with several websites on it) that I want to archive the logfiles on. I have a script obtained from here: http://www.iisfaq.com/Default.aspx?tabid=2809 running on another server, that is also a production server, but with much less traffic on it. The logfiles that are on the second server, are located in the default directory for that installation of IIS. It runs the following vbscript code fine and archives the log files fine. The script is located in the \Windows\System32\Logfiles\W3SVC folder, along with the batch file that calls it. The script: ' http://support.microsoft.com/support/kb/articles/Q176/8/10.asp Option Explicit Const GENERAL_FAILURE = 2 Dim ArgObj, Servername, WebSiteID, WebSite, WebSitepath, MaxAgeOfFileToKeep Dim Archivefolder, UseSpecificArchiveFolder Const WinDir = "%WinDir%" Function CreateFolderIfItDoesNotExist(FolderName) Dim FSO Set fso = CreateObject("Scripting.FileSystemObject") if (fso.FolderExists(FolderName) = false) then fso.CreateFolder(FolderName) WScript.Echo "Archive folder created: " & FolderName end if Set Fso = nothing End Function Function RenameFile(oldName, newName) Dim FSO, File Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.GetFile(oldName) file.Name = newName Set Fso = nothing End Function function ExpandPath(Path) Dim key, ShellObject if (left(Path, 8) = WinDir) then Set ShellObject = WScript.CreateObject("WScript.Shell") Key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\PathName" ExpandPath = ShellObject.RegRead(Key) & mid(Path,9) Set ShellObject = Nothing else ExpandPath = Path end if end function Function ReturnArchiveFileSize(FSO, CabFilename) Dim FileObj if (FSO.FileExists(CabFilename) = false) then ReturnArchiveFileSize = 0 else Set FileObj = fso.GetFile(CabfileName) ReturnArchiveFileSize = FileObj.Size set FileObj = Nothing end if end function Function ArchiveThisFile(Filename) Filename = lcase(filename) if (right(Filename,4) = ".log") then ArchiveThisFile = true else ArchiveThisFile = false end if end function function FixNumber(Value, Length) const Zeros = "0000" if (Length-len(Value) > 0) then FixNumber = Left(Zeros, Length-len(Value)) & Value else FixNumber = value end if end function Function ReturnDatetime Dim AMPM if (Hour(TIME) < 12) then AMPM = "AM" else AMPM = "PM" end if ReturnDatetime = FixNumber(Day(Date),2) & MonthName(Month(Date),true) & FixNumber(Year(Date),4) & "_" & _ FixNumber(Hour(Time),2) & FixNumber(Minute(Time),2) & FixNumber(Second(Time),2) & AMPM end function Function ArchiveOldLogFiles(WebSite, WebSiteLogPath, MaxAgeOfFile) Dim File, ServerObj, FSO, FolderObj, FileObj, LogFileDir, Archived, Status, FailedToArchive Dim Filespec, OriginalLogfilename, CabFilename, LogFileSize, ArchiveFileSize, FilesArchived Dim CabFileSpec, CabFilesize, ReturnCode, WshShell, ArchivePercentage, Command, NewFilename LogFileSize = 0 ArchiveFileSize = 0 Archived = 0 FailedToArchive= 0 'on error resume next ' Attempt to get the web site object from the metabase Err.clear Set ServerObj = GetObject(WebSite) If (Err.Number <> 0) Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" Exit Function end if LogFileDir = ExpandPath(ServerObj.LogFileDirectory & "\" & WebSiteLogPath) WScript.Echo "Log file dir for: " & ServerObj.LogFileDirectory & " = " & WebSiteLogPath Set ServerObj = Nothing WScript.Echo "Log file dir for: " &WebSite & " = " & LogFileDir Set FSO = CreateObject("Scripting.FileSystemObject") ' Check if the log file directory exists if (FSo.FolderExists(LogFileDir) = false) then WScript.Echo "Log file directory does not exist: " & LogFiledir Exit Function end if set Folderobj = FSO.GetFolder(LogFileDir) for each File in Folderobj.files if (ArchiveThisFile(File.Name) = true) then if (Date - File.DateLastModified > cint(MaxAgeOfFile)) then OriginalLogfilename = file.name LogFileSize = LogFileSize + File.Size Status = "Archiving File: " &File.name & ", Age="& _ formatNumber(Date-File.DateLastModified, 0) & " days, Status=" Err.Clear if (UseSpecificArchiveFolder = false) then Filespec = LogFileDir & "\" & File.Name CabFileName = left(file.name, len(File.name)-3) + "cab" CabFileSpec = LogFileDir & "\" & CabFileName else NewFilename = WebSiteLogpath & "_" & ReturnDateTime & "_" & File.name CabFilename = left(NewFilename, len(NewFilename)-3) + "cab" CabFileSpec = ArchiveFolder & "\" & CabFileName call RenameFile(LogFileDir & "\" & File.Name, NewFilename) Filespec = LogFileDir & "\" & NewFilename end if Set WshShell = WScript.CreateObject("WScript.Shell") ' http://msdn.microsoft.com/scripting/windowshost/doc/wsMthRun.htm Command = "makecab " & chr(34) & Filespec & chr(34) & " " & chr(34) & CabFileSpec & chr(34) ReturnCode = WshShell.Run(Command, 7, True) If (Err.Number <> 0) Then Status = Status & "Failed : "& Err.Description & " (" & Err.Number & ")" FailedToArchive = FailedToArchive +1 elseif (ReturnCode <> 0) then Status = Status & "Failed : Return code from MAKECAB.EXE was " & ReturnCode FailedToArchive = FailedToArchive +1 else Status = Status & "Archived " & OriginalLogfilename & " to " & CabFilename CabFilesize = ReturnArchiveFileSize(FSO, CabFileSpec) ' This is just a sanity check to make sure the archive was created successfully. if (File.Size > 0) and (CabfileSize > 0) and (CabFilesize <> File.Size) then FSO.DeleteFile(Filespec) If (Err.Number <> 0) Then Status = Status & ", Failed to delete original log file : "& _ Err.Description & " (" & Err.Number & ")" end if end if ArchiveFileSize = ArchiveFileSize + CabFilesize Archived = Archived + 1 end if WScript.Echo Status end if end if next ArchiveOldLogFiles = Archived WScript.Echo "-------------------------------------------------------------------------" if (FailedToArchive > 0) then WScript.Echo "There were " & FailedToArchive & " files that could not be archived!" end if if (LogFileSize =0) then ArchivePercentage = "0%" else ArchivePercentage = FormatNumber(100-((ArchiveFileSize / LogFileSize) * 100), 2) &"%" end if WScript.Echo Archived & " log files archived, original = " & LogFileSize & ", archived = " & ArchiveFileSize & _ " saving " & LogFileSize - ArchiveFileSize & " bytes or " & ArchivePercentage end function Sub DisplayHelpMessage() WScript.Echo WScript.Echo "Usage:" WScript.Echo " ArchiveOldWebSiteLogfiles.VBS MaxDays [-A ArchiveFolder]" WScript.Echo WScript.Echo "MaxDays = If a file is older than this it will be archived." WScript.Echo WScript.Echo "ArchiveFolder = Optional parameter that specifies the location" WScript.Echo " where the .CAB files get written. When using this option two" WScript.Echo " major things happen. The CAB filename and the log filename" WScript.Echo " are built using this format SI_D_T_O where" WScript.Echo WScript.Echo " S=Service such as W3SVC, MSFTPSVC" WScript.Echo " I=Instance such as 1 for default web site" WScript.Echo " D=Current Date" WScript.Echo " T=Current Time" WScript.Echo " O=Original log filename" WScript.Echo WScript.Echo " ex010423.log becomes W3SVC1_19May2001_085937AM_ex010423.log" WScript.Echo WScript.Echo "Example: cscript ArchiveOldWebSiteLogfiles.VBS 50" WScript.Echo WScript.Echo "This script will archive the LOG files in all WEB and FTP sites into a .CAB" WScript.Echo "file. You can extract the files from the CAB file by using the EXTRACT command" WScript.Echo "which is included with Windows." WScript.Echo WScript.Echo "Note: The original log file is deleted" WScript.Echo WScript.Echo "Please visit and support : http://www.iisfaq.com" end sub Sub DoWork(Service, ClassName) Dim IISObj, Object, ServicePath ServicePath = "IIS://" & ServerName & "/" & Service Set IISOBJ = GetObject(ServicePath) if (err <> 0) then WScript.Echo "Failed to read service " & Service & " for path " & Servicepath & " : " & _ Err.Description & " (" & Err.Number & ")" exit sub end if for each object in IISOBJ if (Object.Class = ClassName) then WScript.echo "Site = " & Object.Name & " - " & Object.ServerComment WebSitepath = "IIS://" & Servername &"/"& Service & "/" & Object.Name Call ArchiveOldLogFiles(WebSitePath, Service & Object.Name, MaxAgeOfFileToKeep) WScript.Echo end if next Err.Clear Set IISOBJ=Nothing end sub Sub CheckCommandLine() Dim OArgs, ArgNum Set oArgs = WScript.Arguments ArgNum = 0 UseSpecificArchiveFolder = false ArchiveFolder = "" If oArgs.Count < 1 Then DisplayHelpmessage WScript.Quit (GENERAL_FAILURE) End If While ArgNum < oArgs.Count if (ArgNum = 0) then MaxAgeOfFileToKeep = trim(oArgs(0)) else Select Case LCase(oArgs(ArgNum)) Case "-a": if (ArgNum+1 >= oArgs.Count) then Call DisplayHelpmessage WScript.Quit (GENERAL_FAILURE) else ArgNum = ArgNum+1 ArchiveFolder = oArgs(ArgNum) ' Strip off the last slash if provided. if (right(ArchiveFolder,1) = "\") then ArchiveFolder = left(ArchiveFolder, len(ArchiveFolder)-1) end if CreateFolderIfItDoesNotExist(ArchiveFolder) WScript.Echo "Using archive folder : " & ArchiveFolder UseSpecificArchiveFolder = true end if Case "--help","-?": Call DisplayHelpmessage WScript.Quit (GENERAL_FAILURE) Case Else: WScript.Echo "Unknown argument : "& oArgs(ArgNum) Call DisplayHelpmessage WScript.Quit (GENERAL_FAILURE) End Select end if ArgNum = ArgNum + 1 Wend end sub CheckCommandLine() Servername = "LocalHost" WScript.Echo "Archive files over "& MaxAgeOfFileToKeep & " days old." & vbcrlf 'on error resume next DoWork "SMTPSVC", "IIsSmtpServer" DoWork "W3SVC", "IIsWebServer" DoWork "MSFTPSVC", "IIsFtpServer" DoWork "NNTPSVC", "IIsNntpServer" The Batch file that calls it: rem -- back up iis log entries to a cab file on E drive rem -- set for 1 days to keep on the server cscript archiveoldwebsitelogfiles.vbs 01 -a e:\iislogarchive pause The problem is that on the production web server, the Logfiles are in another folder structure entirely. Where the above works fine on an IIS Server with a single website, on logfiles in the \windows\system32\logfiles\w3svc folder, it does not work on our main web server, since the logfiles on that server are located in another directory structure entirely. On the site that the script doesn't work on, the logfiles are located in: E:\logfiles\Website1, E:\logfiles\website2, E:\logfiles\website3 and so on. I'm not well-versed enough in vbscript to be able to figure out the script above, or how to adapt it to a non-typical installation of IIS. The one that the script is working on is a Windows 2000 server, the new version is on a Windows 2003 server. Can anyone help? BC Tag: Remote Service Restart Tag: 190140
  - 9
    - Screen Saver Hai guys.I am having a screensaver file in (scr)format. I want to install in all the client machine which we have in our network. Can u all help me to do that using Login script.can u just give me a sample script. -- MuraliKrishnan Entry level Network Engineer Tag: Remote Service Restart Tag: 190135
  - 10
    - Script Hi all, I am trying to write a script to do as follow: when a user loging in the AD a window will pop-up showing with the message: user name, you belong to group name If anyone has something like that I appreciate, Thanks, Anderson Tag: Remote Service Restart Tag: 190131
  - 11
    - AD sites Hi all, I would like to write a login script for our Finance department. Half of the department are located at site1 and half at site2. I'd like an IF statement in the script that would state: IF users site = site1 then map printer1 ELSE map printer2 The sites are defined in AD. I know that I could create a separate OU and a different login script, but if this is possible I'd like to do it this way. Can anyone hlp at all? Thanks, Gay. Tag: Remote Service Restart Tag: 190126
  - 12
    - Newbie script help PLEASE. Scripting AD users profile path changes. G'day all I've got 98 users that I need to change their profile paths in AD. I've got the following from the code examples script start Set objUser = GetObject ("LDAP://cn=SteveVai,ou=People,dc=Workplace,dc=com") objUser.Put "profilePath", "\\server5\Profiles$\VaiS" objUser.SetInfo script finish which I'm assuming should make the change for me but how do I arrange the script to take the input from a textfile full of the users names etc? Thanks Mark Tag: Remote Service Restart Tag: 190121
  - 13
    - Excel Sheet manipulation from VB Hello, The situation in my code: VB has reached the last row for data entry in an excel spreadsheet's current worksheet. Prior arrangement requires me to start data entry on a new sheet. The task I need to accomplish: Get VB to copy the current sheet (then I can blank out filled cells to start afresh), or (preferably) open the blank template, and copy out the empty sheet to existing .xls file (move to end). Then finally, I need to close the .xlt and set focus on new sheet in .xls. Also, I need to just switch easily between sheets inside the .xls. I've copied below the required code in VBE: Workbooks.Open Filename:= _ "C:\Documents and Settings\user\My Documents\MyTemplate.xlt", Editable:= _ True Sheets("Sheet1").Copy After:=Workbooks("MySheet.xls").Sheets(1) ActiveWindow.ActivateNext ActiveWindow.Close Anyone have some ideas about converting the above to VB? Much Thanks, Tag: Remote Service Restart Tag: 190118
  - 14
    - Help needed Hello forum, I am new to scripting and need some help. I have manged to piece together code that does most of what i need. The finishing touches would be the following. Oh the script creates machine acounts in AD from a spreadsheet. What I need the script to do now is to output a log file of success or failure of creation of computer accounts. Also the log files file name needs to be in the format Compscreated110406.log. the last digits indicating the date the script ran. I have attached the script as I cannot seem to paste the code correctly here. Thanks in advance. Van +----------------------------------------------------------------+ | Attachment filename: createcomp-ver1_2.txt | |Download attachment: http://www.codecomments.com/attachment.php?postid=2709294 | +----------------------------------------------------------------+ -- vandergraafuk ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Remote Service Restart Tag: 190117
  - 15
    - Using MSComDlg.CommonDialog to make a Directory Browser in VBScrip Hi, I am having a problem with VBScript and the common dialog (MSComDlg.CommonDialog). What I am trying to do is build a dialog that allows me to select a target directory. I am trying to copy this functionality from the Microsoft Word 2003 Dialog where a user can change the default path for documents. Tools - Options - File Locations - Documents - Modify. I know about the function Shell.Application - BrowseForFolder but it does look as good as the Office Dialog I want to simulate. So really in the code below I want to make it only browse directories and remove the file filter (Files of type:) - how can this be done. As well I want to make it only display directories and not list any files. Enough waffle - here is the code. Thanks, Ward. Public Const ofnAllowMultiSelect = &H200 Public Const ofnCreatePrompt = &H2000 Public Const ofnFileMustExist = &H1000 Public Const ofnHideReadOnly = &H4 Public Const ofnNoNetworkButton = &H20000 Public Const ofnNoReadOnlyReturn = &H8000 Public Const ofnNoTestfileCreate = &H10000 Public Const ofnNoValidate = &H100 Public Const ofnOverwritePrompt = &H2 Public Const ofnPathMustExist = &H800 Public Const ofnReadOnly = &H1 Public Const ofnShareAware = &H4000 Public Const ofnExplorer = &H80000 Public Const ofnNochangedir = &H8 Dim oComDlg Dim path_name Set oComDlg = CreateObject("MSComDlg.CommonDialog") path_name = "" With oComDlg .DialogTitle = "Please select Target Directory" .InitDir = "C:\" .Filter = "" .FilterIndex = 0 .MaxFileSize = 260 .FileName = "*.*" .Flags = ofnPathMustExist Or ofnHideReadOnly Or ofnExplorer Or ofnNoValidate Or ofnNochangedir .ShowOpen End With path_name = Left(oComDlg.filename,InStrRev(oComDlg.filename,"\")) If path_name = "" Then MsgBox "User Chose Cancel" wscript.quit 0 End If msgbox "Path Name" & path_name Tag: Remote Service Restart Tag: 190116
  - 16
    - Help needed with setting registry premissions We are in the process of locking down workstations at our company and after doing so many of the applications we use don't work properly. We have identified the registry keys that need permission changes (there are 4 per user) Is there a way we can write a script that will run under a system context that will change these permissions in the registry? We have to modify the key permissions to EVERYONE with FULL ACCESS on 4 keys. Thanks for any insight! -Fran- Tag: Remote Service Restart Tag: 190113
  - 17
    - decoding REG_BINARY entries hey all, does anyone know how to decode the REG_BINARY entries in the registry? I am able to retrieve the raw data, but I don't know how to make any sense of it... for example, if i want to see which services are loading in which order, i look at hklm\system\currentcontrolset\control\grouporderlist /V base /T REG_BINARY, and i get the following data returned... 120000000E00000001000000020000000300000004000000 05000000060000000700000008000000090000000A0000000B0000000C0000000D0000000F000000 100000001100000012000000 I only used this as an example, what I am actually trying to do is query DHCP servers for the 044 entries (WINS Servers) (HKLM|Software\Microsoft\DHCPServer\Configuration\OptionInfo\044).. I know the string value (IP address of the WINS servers), and I can actually do a reg compare to see if the servers are configured with the proper WINS servers, so I guess I'm just curious if anyone has been able to figure this out... Do I need a special decoder ring? (Drink Ovaltine!) Thanks in advance... Tag: Remote Service Restart Tag: 190112
  - 18
    - Active Directory Migration Tool and Scripting Hi all, Firstly, please let me know if there's a better group to post to. I'm writing a vbscript based on the ADMT v3. I've got everything running the way I want, but I'd like to add some event handling. I'm trapping status events by using the method described in the template.vbs file: Sub Task_Status(lngEventType, strObjName, lngStatusType, objMessages) 'do stuff End Sub The only problem I have is with handling objMessages... I can't seem to make any sense of it. I understand it's a system.array, and that the objects are of type system.__comObject. I can't seem to find any info on actually retrieving the messages. Help! Ceejayf! Tag: Remote Service Restart Tag: 190111
  - 19
    - Populate multiple target directories from one source I don't know if my title suits what it is I'm trying to do. I'm looking to create for each of my user's home drives a common directory structure. I'd like to have a script that will read from a input file a list of user names. Based off of the list of user names a home directory will be created on my target server\home\%username% Along with creating the home drives I'd like to have each have subdirectories created as well. I know that this is possible but I don't know how Tag: Remote Service Restart Tag: 190101
  - 20
    - Cleaner Way to write this? This works but I am looking for a cleaner way to write it. Also is there a way to display the seconds as well? a = "4/28/06 11:00:00AM" If (Index = 2) Then b = Day(a) - Day(Now()) c = Hour(a) - Hour(Now()) d = Minute(a) - Minute(Now()) If (c < 0) Then c = c + 24 b = b - 1 End If If (d < 0) Then d = d + 60 c = c - 1 End If MsgBox "Days " & b & ", Hours " & c & ", Minutes " & d End If Tag: Remote Service Restart Tag: 190100
  - 21
    - Trying to post data to another server Hi All, Here's what I'm trying (got this code from MSDN): Dim objSrvHTTP Dim objXMLSend Dim objXMLReceive Set objSrvHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0") Set objXMLSend = Server.CreateObject("Msxml2.DOMDocument.3.0") Set objXMLReceive = Server.CreateObject("Msxml2.DOMDocument.3.0") objXMLSend.async = false objXMLSend.loadXML ("<msg><id>2</id></msg>") objSrvHTTP.open "POST","http://172.17.12.30/EEntryGateway/default.aspx",false objSrvHTTP.send (objXMLSend) Response.ContentType = "text/html" Response.Write (objSrvHTTP.responseText) The code executes fine, and on my calling page, I get the results of the requested page (default.aspx) back. However, from the page that was called, I can't figure out where the data I'm posting is going. It doesn't appear in the Form collection anywhere... What am I doing wrong? How do I sent POST data? Tag: Remote Service Restart Tag: 190088
  - 22
    - How to monitor if Terminal Server is running from remote computer? Hi Is it possibel to check if Terminal Server is up and running from an remote computer? /Romme Tag: Remote Service Restart Tag: 190087
  - 23
    - Something wrong with my INSERT INTO What is wrong with the below code? It gives me error: Error Type: Microsoft JET Database Engine (0x80040E14) Syntax error in INSERT INTO statement. /w/results.asp, line 24 Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; (R1 1.3); .NET CLR 1.1.4322; .NET CLR 2.0.50727) Page: POST 65 bytes to /w/results.asp POST Data: T3=ssdf&T1=sdf&D1=No&D2=Sabre&D3=Greaves+Travel&T2=&SUBMIT=Submit ---------------------------------- I have a file protected.asp and the below line to submit data into database. <form action="results.asp" METHOD="POST"> Following is the contents of results.asp ---------------------------------- <%@ Language=VBScript %> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then dim dDate,dPNR,dSale,dGDS,dWebsite,dOWebsite,sql,connString dDate = Request.Form("T3") dPNR = Request.Form("T1") dSale = Request.Form("D1") dGDS = Request.Form("D2") dWebsite = Request.Form("D3") dOWebsite = Request.Form("T2") connString = "your connection string" 'conn.Open connString sql = "INSERT INTO data ( Date, PNR_Number, Sale, GDS, Website, Other_Website) VALUES ('" & dDate & "','" & dPNR & "','" & dSale & "','" & dGDS & "','" & dWebsite & "','" & doWebsite & "');" cst = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("DB\db1.mdb") set conn = CreateObject("ADODB.Connection") conn.open cst conn.Execute sql conn.Close Response.Redirect("protected.asp") end if %> Tag: Remote Service Restart Tag: 190080
  - 24
    - Help with Outlook Exchange Script I have been writing a vbscript file that queries the LDAP then creates a .csv file with all the contact information of users in my company. I can then go and manually create a new folder in contacts then import the .csv into that folder, where it then organizes everyone's information. My question is if there is a way in vbscript to automatically create a contacts folder and import a .csv iinto the contacts folder with vbscript? Thanks Tag: Remote Service Restart Tag: 190079
  - 25
    - Mapping Network printers and loading drives with a VB Script Hello all, I need to be able to map a network printer but i'm using IPP so when i type in the printer IP \\xxx.xxx.xxx.xxx\ipp I have to load the driver from windows driver list. How can I do everything through a script? Tag: Remote Service Restart Tag: 190078
- Next
  - 1
    - Lastlogon Script help needed please.... This is a Lastlogon time/date script. How can I make this script output to an Excel file, at the moment displays on screen and I have to press enter each time. ******************************************** Option Explicit Dim objRootDSE, strConfig, objConnection, objCommand, strQuery Dim objRecordSet, objDC Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs() Dim strDN, dtmDate, objDate, lngDate, objList, strUser Dim strBase, strFilter, strAttributes, lngHigh, lngLow ' Use a dictionary object to track latest lastLogon for each user. Set objList = CreateObject("Scripting.Dictionary") objList.CompareMode = vbTextCompare ' Obtain local Time Zone bias from machine registry. Set objShell = CreateObject("Wscript.Shell") lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _ & "TimeZoneInformation\ActiveTimeBias") If UCase(TypeName(lngBiasKey)) = "LONG" Then lngBias = lngBiasKey ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If ' Determine configuration context and DNS domain from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. ' This will identify all Domain Controllers. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strConfig & ">" strFilter = "(objectClass=nTDSDSA)" strAttributes = "AdsPath" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate parent objects of class nTDSDSA. Save Domain Controller ' AdsPaths in dynamic array arrstrDCs. k = 0 Do Until objRecordSet.EOF Set objDC = _ GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent) ReDim Preserve arrstrDCs(k) arrstrDCs(k) = objDC.DNSHostName k = k + 1 objRecordSet.MoveNext Loop ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon" strQuery = strBase & ";" & strFilter & ";" & strAttributes _ & ";subtree" objCommand.CommandText = strQuery On Error Resume Next Set objRecordSet = objCommand.Execute If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k) Else On Error GoTo 0 Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName") lngDate = objRecordSet.Fields("lastLogon") On Error Resume Next Set objDate = lngDate If Err.Number <> 0 Then On Error GoTo 0 dtmDate = #1/1/1601# Else On Error GoTo 0 lngHigh = objDate.HighPart lngLow = objDate.LowPart If lngLow < 0 Then lngHigh = lngHigh + 1 End If If (lngHigh = 0) And (lngLow = 0 ) Then dtmDate = #1/1/1601# Else dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) _ + lngLow)/600000000 - lngBias)/1440 End If End If If objList.Exists(strDN) Then If dtmDate > objList(strDN) Then objList(strDN) = dtmDate End If Else objList.Add strDN, dtmDate End If objRecordSet.MoveNext Loop End If Next ' Output latest lastLogon date for each user. For Each strUser In objList Wscript.Echo strUser & " ; " & objList(strUser) Next ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objConnection = Nothing Set objCommand = Nothing Set objRecordSet = Nothing Set objDC = Nothing Set objDate = Nothing Set objList = Nothing Set objShell = Nothing ********************************************************** Tag: Remote Service Restart Tag: 190071
  - 2
    - WshShell.Run - Spaces in path Hi I would like to run Internet Explorer from a VBScript. The path to "iexplore.exe" is "C:\Program Files\Internet Explorer\iexplore.exe". When I try to run it it fails saying that "The system cannot find the file specified.". After some research I found out that the script can't deal with the spaces in the program path. Any ideas how to work around this? Regards Wayne Tag: Remote Service Restart Tag: 190070
  - 3
    - Scheduled disabling of modem I have a Windows 2000 Professional SP4 PC with a modem and network card. I use the modem to perform a scheduled download each day between 10:00 and 11:00. While the modem is active I want to disable the NIC. Similarly, I want to re-enable the NIC and disable the modem when the scheduled download is finished. Can this be done through VBScript? Tag: Remote Service Restart Tag: 190069
  - 4
    - Event log Message display I have put together a script that pulls error events from all of our serverâ??s event logs to a comma delimited CVS file. Nothing to fancy. I do have a small setback with some messages that have some information is in quotations. Using Event Viewer the message is displayed as DCOM got error "General access denied errorâ?? from the computer EEWHQ when attempting to activate the server: WScript.Echo objItem.Message displays DCOM got error "%2147942405" from the computer EEWHQ when attempting to activate the server :{8E980A48-BED6-46FC-ABA2-B21A9A381A2A}, This is also true of code coming out of SCRIPTOMATIC. I imagine itâ??s a reference to a look up table. Anybody know if this is true and how to access the information. Thanks Tag: Remote Service Restart Tag: 190068
  - 5
    - New to scripting... bulk user creation. Hi, I am trying to write a script that should do the following: create a given number og users with a standard password, their accounts enabled and the "change password at logon" flag un-checked. This is what I've got so far Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://OU=Application,OU=Testers,OU=Test Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 3 Set objLeaf = objContainer.Create("User", "cn=MT" & 1020 ++ i) objLeaf.Put "sAMAccountName", "MT" & 1020 ++ i objLeaf.SetInfo Set objUser = GetObject("LDAP://cn=" & objLeaf & "," & objContainer) objUser.SetPassword "Start123" Next As far as I can figure it creates the first user and then something goes wrong. If I remove the password bit it works. Useres are created in the right OUs Help please? Alex. Tag: Remote Service Restart Tag: 190066
  - 6
    - Delete some subkeys in the registry Hi I have the problem, that if I make a connection to a ftp server via microsoft explorer or internet explorer, the system stores the last logon informations. If I navigate to an other server, the explorer tries automaticaly log on with the previous logon informations. Now I will make a script wich delete this logon information in the registry HKCU\Software\Microsoft\FTP\Accounts Here is my example but I think that the EnumKey Method is not the right on for this script. Maybe anyone has a better solution, please help Thanks Peter const HKCU = &H80000001 'HKEY CURRENT USER strComputer = "." Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_ strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Ftp\Accounts" objReg.EnumKey HKCU, strKeyPath, arrSubKeys For Each subkey In arrSubKeys Return = objReg.DeleteKey(HKCU, strKeyPath & "\" & subkey) MsggBox HKCU & strKeyPath & "\" & subkey If (Return = 0) And (Err.Number = 0) Then Wscript.Echo "HKCU\Software\Microsoft\Ftp\Accounts\" & subkey & " deleted" Else Wscript.Echo "DeleteKey " & subkey & " failed. Error = " & Err.Number End If Next Tag: Remote Service Restart Tag: 190065
  - 7
    - Launch CMD.exe from HTA using VBScript Hi, Is it possible to launch CMD.EXE from an HTA using vbscript. I have put in a link which runs a subroutine which calls wshshell.run "c:\winnt\system32\cmd.exe" using VBscript but when I click on the link in an HTA it does not seem to do anything. I have put in a msgbox in the sub to test this and this appears fine. I tried putting this in the link itself but it just opens cmd.exe in the same hta window with all the executable code. Is it possible to launch CMD from a HTA at all ? Many thanks TW Tag: Remote Service Restart Tag: 190064
  - 8
    - Simulate (fake) drag/drop + button click behavior using VBScript Hi all, I would like to write a script to automate some task, but this task requires the use of a GUI based application that can only use its GUI for input (so no command line parameters). This GUI application is not mine, and I cannot change it in any way. Let's call this GUI application GUIAPP. The script would go over a list of files (this I can do myself :-), and for every file, the following should happen 1) have the script fake a drag and drop of this file on the GUIAPP (so that it accepts the file as input) 2) the script has to click the ok button; this button triggers a "Save As..." window 4) the script should fill in some string of my choice for the file name 5) the script should click the "Save" button This must be possible using OLE, I would think? Help would really be appreciated! Stefaan Tag: Remote Service Restart Tag: 190063
  - 9
    - We are getting ScriptTimeout error while trying to retrieve a ASP Earlier this page works fine. The code is in ASP and the backend is Oracle9i. We are using MSDAORA.1 driver to connect to database. we just upgraded from Oracle8i to Oralce9i. we haven't changed any thing inthe code for this migration. We don't want to set Server.ScriptTimeOut to some big value. Instead we need a good solution to increase the performance of the page. we are getting error even if the page has no much data to retrieve from the database. code has simple queries and some loops to generate data. we are not using stored procs. In the DEV eveything is working fine. But in Production we have this performance issue. Can you please suggest is it problem with driver, if then suggest better driver ?Appreciate your help. TIA. Tag: Remote Service Restart Tag: 190059
  - 10
    - Software Inventory script help I have a VB script that writes a list of installed applications to a text file that is named the computername. It works okay except that it does not list the user, so it is difficult and time consuming to find which users are assigned to those computers. Can someone help me and show what needs to be added (and where) for the script to also write the name of at least the currently logged on user? Ideally, it would also write the list of all the domain user profiles on that computer (or the domain user profiles on that computer that have been used in the last 30 days). Here is the script that lacks that added functionality: on error resume next Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("\\server\folder\folder\inv\" & strcomputer & ".txt", True) strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" strEntry1a = "DisplayName" strEntry1b = "QuietDisplayName" Set objReg = GetObject("winmgmts://" & strComputer & _ "/root/default:StdRegProv") objReg.EnumKey HKLM, strKey, arrSubkeys For Each strSubkey In arrSubkeys intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _ strEntry1a, strValue1) If intRet1 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry1b, strValue1 End If If strValue1 <> "" Then objTextFile.WriteLine strValue1 & "¿ " & strcomputer & "¿" End If Next strKey2 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\" strEntry2a = "DisplayName" strEntry2b = "QuietDisplayName" Set objReg = GetObject("winmgmts://" & strComputer & _ "/root/default:StdRegProv") objReg.EnumKey HKLM, strKey2, arrSubkeys For Each strSubkey In arrSubkeys intRet2 = objReg.GetStringValue(HKLM, strKey2 & strSubkey, _ strEntry2a, strValue2) If intRet2 <> 0 Then objReg.GetStringValue HKLM, strKey & strSubkey, _ strEntry2b, strValue2 End If If strValue2 <> "" Then objTextFile.WriteLine strValue2 & "¿ " & strcomputer & "¿" End If Next objTextFile.Close Tag: Remote Service Restart Tag: 190054
  - 11
    - create exchange mailbox for existing user account. I'm trying to create a mailbox for an existing user account. I just need to know what are the different types of properties in vbscript that is attached to the mailbox account properties so I can create them. Can't seem to be able to find them anywhere on google. Tag: Remote Service Restart Tag: 190052
  - 12
    - Exec with Alternate Credentials - How? Hi ALL, I need to start a proces on a remote computer like in the sample below (starts "Calc.exe"). However, I am clueless on how to provide alternate credentials for that. How can I pass the proper user/password? Thanks in advance! strComputer = "." strExe = "Calc.exe" ' Connect to WMI set objWMIService = getobject("winmgmts://"& strComputer & "/root/cimv2") ' Obtain the Win32_Process class of object. Set objProcess = objWMIService.Get("Win32_Process") Set objProgram = objProcess.Methods_( _ "Create").InParameters.SpawnInstance_ objProgram.CommandLine = strExe Tag: Remote Service Restart Tag: 190047
  - 13
    - get attachment from outlook email and save to a file with new name Hi all. Due to a short sighted process that I did not design, I get a single text file everyday that has the same name called "daily.txt." So I have like a three-hundred of these emails, and I would like to use a script to save them from email to a file on my harddrive, preferably with a name thats based on the date that email attachment was received. If that date thing is not possible, I would be happy just to get the files saved off with a unique name for each. Any one help? Tag: Remote Service Restart Tag: 190042
  - 14
    - Last logon date for users... Can anyone please help me out. I've noticed a fair amount of VBScripts created for Domain Controllers, but I'm trying to quey a Windows 2000 and 2003 workgroup server (non Domain) for all the users and last logon date... Can anyone please help me? TIA...Your help is appreicated! Tag: Remote Service Restart Tag: 190039
  - 15
    - Import data file & update with SQL I would like to be able to use a vbs script to 1) import a text file of a known, specific format into a table 2) Delete records that match a criteria (a delete SQL?) 3) Save to a new file. Any pointers? or suggestions? This does not have to be a DB/table solution, but I am an ACCESS programmer with very basic vbs specific knowledge. Would like this to be a simple drag and drop operation for the end user if possible. What specific info do I need to supply to have an intelligent answer? TIA - Z Tag: Remote Service Restart Tag: 190037
  - 16
    - vbscript to identify and restart hanging services. I have written a script that restarts services that have stopped, that are set to auto start. The problem I'm having is that hanging services don't get identified, and therefore remain in a hung state. Is there a way using VBscript to identify a hung service? Thanks, any help is greatly appreciated, Josh Tag: Remote Service Restart Tag: 190036
  - 17
    - Scan AD Computers for text file Our users have a flag file at the root of their profiles (C:\Docume~1\%USERNAME%), based on whether or not they received our printer migration logon script. I'd like to scan all of these computers to see who has the flag file, but I've never used VB to pull names of computers from AD before. Does anybody have a generic canned script that will pull names of computers from AD to check for a file on each computer? Thanks for any help or suggestions! Tag: Remote Service Restart Tag: 190034
  - 18
    - RegRead Method for Newbie's Hi I would like to read few keys under a specific key and then delete it but I didn't find a way to do this with the regread method. Did you know a way to do this ? Thanks Peter Tag: Remote Service Restart Tag: 190027
  - 19
    - help with script Hi, I need help with a script that until i couldn't do right to work. My script is shown below: '***************************************************************** Const GRUPO_TECNICO = "cn=tecnico" Const GRUPO_CONSULTORIA = "cn=consultoria" Const GRUPO_SUPERVISAO = "cn=supervisao" Set wshNetwork = CreateObject("WScript.Network") '********************************** '**** Define user's group '********************************* Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) Set colGroups = CurrentUser.memberOf '=================================================================== Dim group=("tecnico","consultoria","supervisao") ' Mount user's directory wshNetwork.MapNetworkDrive "z:","\\MyDomain\" & wshNetwork.UserName ' Mount all user's group which the user is in ' For Each group In colGroups wshNetwork.MapNetworkDrive "y:","\\MyDomain\$grupo" Next '***************************************************************** My script has to do as follow: 1.) If the user has only 1 group it will mount his home directory and groups direcotry which he is in. Example: User joe is in group tecnico then it will mount: z:\\MyDomain\Joe y:\\Tecnico 2.) If the user has two or more groups it must mount his home directory and groups directory which he is in. Example: User joe is in groups tecnico and supervisao then it will mount: z:\\MyDomain\Joe y:\\Tecnico y:\\Supervisao See if you can help with it. Thanks in Advance, Anderson Tag: Remote Service Restart Tag: 190026
  - 20
    - Thumbnailing hi-res jpegs Hi all, I'm not sure if this is the right group for this, so if anyone knows a better group, please let me know. I have a web application that thumbnails hi-res jpeg's on the fly, up to some 200-300 images at a time. It runs on ASP using VBScripts. With the latest camera's, file sizes and 2GB cards the process is becoming very slow. I have been looking around for a better component to use in my asp pages. At the moment I am using 'dImage'. I have tried a few others but they run at the same speed. The process I am running creates small thumbnails and saves them to disk before displaying them through the browser. This way if they are required for view again the thumbnail does not have to be created again. Using image browsing software produces fast thumbnails, why can I not find something in a web component that will do the same. Any help much appreciated. Cheers, Blinky. Tag: Remote Service Restart Tag: 190023
  - 21
    - Point to vbs file on the network I have a script that adds a network printer when executed. It now points to a vbs file on my desktop. But I need to put the vbs file on the network for others to access it also. How do I tell the script to point to a network file. <Html> <Head> <Script> function open(PStrApplication, PstrFilePath) { var WshShell = new ActiveXObject("WScript.Shell"); WshShell.run(PStrApplication + " \"" + PstrFilePath + "\""); } </Script> </Head> <Body> Install Printer<p> <a href="javascript:open('wscript.exe', 'printer.vbs')">Install Printer</a> </Body> </Html> Tag: Remote Service Restart Tag: 190021
  - 22
    - Convert string to corresponding ASCII character Hi, Quick question...if I have a string (let's say it just consisted of "123"), what would be the vbscript syntax to output the corresponding ascii chars to the screen - e.g. in this example to programmatically derive an output of "061 062 063"...? Obviously the other way round would be response.write chr(61) & chr(62) & chr(63), but I don't know the converse Thanks for any assistance Tag: Remote Service Restart Tag: 190016
  - 23
    - Match Input string with a predifined set I would like to know the most efficient way of take user input such as Jan and matching it against a predefined set of values such as "Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec" If the input string does not match I wish to display an error. I am writing a simple backup program but require input validation. Source = "ntbackup backup O:\acuchris\dat /f " Dest = "O:\Chris\User\12mth\" Slash ="\" Ext = ".bkf" Wild = " /m copy" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") strInput = InputBox ("Please enter the First 3 letters of the Month in lowercase ") If str1 = str2 Then Wscript.Echo "The strings are equal." Else Wscript.Echo "The strings are not equal." End If Set oWshShell = CreateObject("WScript.Shell") oWshShell.Run Source & Dest & strInput & Slash & strInput & Ext & Wild Tag: Remote Service Restart Tag: 190014
  - 24
    - Retrieve AD data Hi, Does anyone know a script to retrieve active directory data like e-mail, terminalserver enabled, ... Thx. Tag: Remote Service Restart Tag: 190013
  - 25
    - Folder access / User Hi, Does anyone know a script that gives all the folders where a user has access too. Thx. Tag: Remote Service Restart Tag: 190012

Got an server that has some vendor specific services that I need to provide
ordinary users the ability to restart the services. I have gone ahead and
created a group and provided the stop_start ACL permissions (VIA
setACL.exe), but I need to be able to have the users restart these from a
remote machine.

Could anyone guide me as to which services/permissions need to be modified
to provide this user group permission to remotely attach and restart this
box. It currently is dying when it attempts to call the WMI serach (See the
code below).

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2")

setACL url http://setacl.sourceforge.net/html/examples.html
See example 23

--

Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA
http://www.pbbergs.com

This posting is provided "AS IS" with no warranties, and confers no rights.

Top

Re: Remote Service Restart by Paul

Paul
Wed Apr 12 11:19:24 CDT 2006

I should have also stated I followed the definitions for dcom at
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/securing_a_remote_wmi_connection.asp

--

Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA
http://www.pbbergs.com

This posting is provided "AS IS" with no warranties, and confers no rights.

"Paul Bergson" <pbergson@allete_nospam.com> wrote in message
news:%23$nILnkXGHA.4388@TK2MSFTNGP03.phx.gbl...
> Got an server that has some vendor specific services that I need to
> provide ordinary users the ability to restart the services. I have gone
> ahead and created a group and provided the stop_start ACL permissions (VIA
> setACL.exe), but I need to be able to have the users restart these from a
> remote machine.
>
> Could anyone guide me as to which services/permissions need to be modified
> to provide this user group permission to remotely attach and restart this
> box. It currently is dying when it attempts to call the WMI serach (See
> the code below).
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &
> "\root\cimv2")
>
> setACL url http://setacl.sourceforge.net/html/examples.html
> See example 23
>
>
> --
>
> Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA
> http://www.pbbergs.com
>
> This posting is provided "AS IS" with no warranties, and confers no
> rights.
>
>

Top