Script to create scheduled task on remote computers

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
    - VBScript in Web Page and Security Hello, I am still a bit new with writing VBScript in a web page so hopefully someone can help me with this issue I am having. I have a management server (MS 2003) in domain USERS, and on this server I have IIS running with just a simple interface on a web page right now to help automate an administrative task. However, their are users that are in the ADMIN domain that will mostly be accessing this page (along with ones from the USERS domain), however, the users in the ADMIN domain always get the ADO Security Warning dialog box everytime the script runs, "The website uses a data provider that may be unsafe. if you trust this site click OK...", while those users that log into the USERS domain are fine and do not get this error at all. How can I supress this dialog box, add code to remedy it, or change settings on the web server that will fix it. I don't want anyone to have to actually modify their own PC settings to get this to work without the warnings. Thanks, Ron Tag: Script to create scheduled task on remote computers Tag: 182875
  - 2
    - Problem with Copying file by DateLastModified vbs Can someone tell me what I am doing wrong with this, I'm trying to copy all files by datelastmodified the files can be anything from .doc .pdf to .dxf .vbs in fact I need to copy everything, that ONLY has been modified. I've been scratching my head with this one and I can't see what's wrong with it. Here's the code Thanks function CurrentBackupFolder() if isArray(BackupFolder) then CurrentBackupFolder = BackupFolder(WeekdayNumber) else CurrentBackupFolder = BackupFolder end if end function function BackupSubFolderName(fldrname) dim bfldrname bfldrname = replace(fldrname,":","\") bfldrname = replace(bfldrname,"\\","\") BackupSubFolderName = bfldrname end function function MakeBackupFolder(fldrname) dim bfldrname, pbfldrname, fbfldrname if len(fldrname) = 0 then MakeBackupFolder = true exit function end if bfldrname = BackupSubFolderName(fldrname) fbfldrname = fs.BuildPath(CurrentBackupFolder(),bfldrname) if not fs.FolderExists(fbfldrname) then pbfldrname = fs.GetParentFolderName(bfldrname) if not MakeBackupFolder(pbfldrname) then exit function end if fs.CreateFolder(fbfldrname) end if MakeBackupFolder = true end function function DoThisFile(fl,srcfolder,bpath) dim bf, res ON ERROR RESUME NEXT bpath = fs.BuildPath(CurrentBackupFolder(),fs.BuildPath(BackupSubFolderName(srcfolder),fl.name)) if BACKUP_ALWAYS then res = true elseif not fs.FileExists(bpath) then res = true else set bf = fs.GetFile(bpath) res = (bf.DateLastModified <> fl.DateLastModified) set bf = nothing end if DoThisFile = res end function sub DoBackup(srcfolder) dim sf, fldr, fl, bpath ON ERROR RESUME NEXT if not MakeBackupFolder(srcfolder) then exit sub end if set fldr = fs.GetFolder(srcfolder) set sf = fldr.SubFolders for each fl in sf DoBackup fs.BuildPath(srcfolder,fl.name) next set sf = fldr.Files for each fl in sf if DoThisFile(fl,srcfolder,bpath) then WriteLog "Backing up " & fl.path ,false fl.copy bpath if err.number <> 0 then WriteLog "** ERROR ** " & err.number & "; " & err.description,false CopyErrors = CopyErrors + 1 else FilesCopied = FilesCopied + 1 BytesCopied = BytesCopied + fl.size end if end if next end sub sub ShowResults dim x x = "Files copied = " & vbTab & FilesCopied & vbCr & vbLf x = x & "Bytes copied = " & vbTab & BytesCopied & vbCr & vbLf x = x & "CopyErrors = " & vbTab & CopyErrors & vbCr & vbLf x = x & "------------------------------------------------" WriteLog x,true if SHOWRESULTS_EOJ then msgbox x,0,PROGRAMID end if end sub Tag: Script to create scheduled task on remote computers Tag: 182873
  - 3
    - VBSCript inside ASP page am sorry if this sounds hokey but I am a newbie to ASP. I have a VBScript running in an ASP page. The script makes a connection to Oracle via and ADODB connection. When my clients connect to the ASP page they get Oracle client issues. How do I make the script run from the server side to eliminatew any oracle client issues or oracle tns names issues. Hope someone can help Paul Code <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <div align="center"><img src="pics/banner_new.jpg" width="700" height="80" /> <br /> <script type="text/vbscript"> Const adOpenStatic = 3 Const adLockOptimistic = 3 Set objConnection2 = CreateObject("ADODB.Connection") Set objRecordset2 = CreateObject("ADODB.Recordset") objConnection2.Open = "DRIVER={Microsoft ODBC for Oracle}; SERVER=<removed>; UID=<removed>; PWD=<removed>" strQuery1 = "SELECT TRUNC(log_date_time) DAY,UPPER(SUBSTR(workstation,1,3)) WORKSTATION, COUNT(*) COUNT FROM member_log WHERE logon_type='LOGON' GROUP BY TRUNC(log_date_time),UPPER(SUBSTR(workstation,1,3))" ' strQuery1 = "Select * from member_log" objRecordset2.Open strQuery1, _ objConnection2, adOpenStatic, adLockOptimistic ' If Not objRecordSet.EOF Then 'objRecordSet.MoveFirst Do Until objRecordSet2.EOF If Left(ObjRecordSet2("WORKSTATION"),3) = "W03" Then 'document.write "WESTAMPTON" & vbTab & (ObjRecordSet2("WORKSTATION")) & vbTab & (ObjRecordSet2("DAY")) & vbTab & (ObjRecordSet2("COUNT")) wh1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" wh = wh + wh1 testw = CInt(ObjRecordSet2("COUNT")) westh = westH + testw Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W05" Then testv = CInt(ObjRecordSet2("COUNT")) vnld = vnld + testv vn1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" vn = vn + vn1 Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W10" Then testnb = CInt(ObjRecordSet2("COUNT")) newb = newb + testnb nb1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" nb = nb + nb1 Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W05" Then testv = CInt(ObjRecordSet2("COUNT")) vnld = vnld + testv vn1= (ObjRecordSet2("Day")) & vbTab & (ObjRecordSet2("COUNT")) & "<br>" vn = vn + vn1 Elseif Left(ObjRecordSet2("WORKSTATION"),3) = "W12" Then testd = CInt(ObjRecordSet2("COUNT")) dov = dov + testd dv1= (ObjRecordSet2("Day")) & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"& (ObjRecordSet2("COUNT")) & "<br>" dv = dv + dv1 End If objRecordset2.movenext Loop objRecordset2.Close objConnection2.Close document.write "" document.write "WESTHAMPTON" & "<br>" document.write "DATE"& "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write wh document.write "Total For WestHampton: " & westh & "<br>" & "<br>" document.write "" document.write "VINELAND" & "<br>" document.write "DATE" & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write vn document.write "Total for Vineland: " & vnld & "<br>" & "<br>" document.write "" document.write" NEW BRUNSWICK" & "<br>" document.write "DATE" & "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write nb document.write "Total for New Brunswick: " & newb & "<br>" & "<br>" document.write "" document.write"DOVER" & "<br>" document.write "DATE"& "&nbsp" & "&nbsp" & "&nbsp" &"&nbsp"&"&nbsp"&"&nbsp"&"&nbsp" &"&nbsp" &"&nbsp" &"&nbsp" & "COUNT" & "<br>" document.write dv document.write "Total for Dover: " & dov </script> </div> <p align="center"> </p> </body> </html> Tag: Script to create scheduled task on remote computers Tag: 182871
  - 4
    - How to run console app with WshShell.Exec without console window? Hello, I want to execute console application with WshShell.Exec method from HTA. However, during execution new console is created and pops up before my application. Can I run console process without console window with WshShell.Exec? Note: I cannot use WshShell.Run since I need access to process' stdout/stderr streams. Thanks in advance Alex Tag: Script to create scheduled task on remote computers Tag: 182868
  - 5
    - Is a Wait needed Throught out my script I create and delete files and objects. For example: I copy a file to a new folder then wait 3 seconds before I see if the file exists in the new destination. I assume that the script can run faster than the copy process so the If FileExists can run before the Copy is complete. Is this true. Or does the next line not process until the previous has completed it's process. Throughout my script I have a total of a minute and 30 seconds in total waits. Tag: Script to create scheduled task on remote computers Tag: 182858
  - 6
    - Copy files Hi everyone. I need to create a login script that copy a lot of files from a directory for other. I've already done one like this but I need to make from a lot of directories from others. Here is the script that I'm using now: fromDir = "c:\1" toDir = "c:\2" start = Now() replaceSize = 0 copySize = 0 deleteSize = 0 noChangeSize = 0 Set fso = CreateObject("Scripting.FileSystemObject") Set logFile = fso.OpenTextFile("Sincronizacao.log", 8, True) logFile.WriteLine("") logFile.WriteLine("Iniciado ................... : " & start) logFile.WriteLine("Origem ..................... : " & fromDir) logFile.WriteLine("Destino..................... : " & toDir) If fso.FolderExists(fromDir) And fso.FolderExists(toDir) Then Call ReplicateDirectory(fromDir, toDir) Else logFile.WriteLine("Erro ...................... : Origem ou Destino inalcancaveis") End If Sub ReplicateDirectory(source, target) Set targetDir = fso.GetFolder(target) Set sourceDir = fso.GetFolder(source) Set targetDirFileList = targetDir.Files Set sourceDirFileList = sourceDir.Files Set targetDirFolderList = targetDir.SubFolders Set sourceDirFolderList = sourceDir.SubFolders For Each targetFile in targetDirFileList If fso.FileExists(source & "\" & targetFile.Name) Then Set sourceFile = fso.GetFile(source & "\" & targetFile.Name) If targetFile.DateLastModified <> sourceFile.DateLastModified Then targetFilePath = targetDir.Path & "\" & targetFile.Name 'targetFile.Delete(True) replaceSize = replaceSize + sourceFile.Size sourceFile.Copy targetFilePath Else noChangeSize = noChangeSize + sourceFile.Size End If Else noChangeSize = noChangeSize + targetFile.Size 'targetFile.Delete() End If Next For Each sourceFile in sourceDirFileList If Not fso.FileExists(target & "\" & sourceFile.Name) Then copySize = copySize + sourceFile.Size sourceFile.Copy targetDir.Path & "\" & sourceFile.Name End If Next 'For Each targetFolder in targetDirFolderList 'If Not fso.FolderExists(sourceDir & "\" & targetFolder.Name) Then 'deleteSize = deleteSize + targetFolder.Size 'targetFolder.Delete(True) 'End If 'Next For Each sourceFolder in sourceDirFolderList If Not fso.FolderExists(targetDir & "\" & sourceFolder.Name) Then copySize = copySize + sourceFolder.Size sourceFolder.Copy(targetDir & "\" & sourceFolder.Name) Else Call ReplicateDirectory(sourceFolder.Path, targetDir & "\" & sourceFolder.Name) End If Next End Sub finish = Now() logFile.WriteLine("Arquivos Identicos.......... : " & Round(noChangeSize / 1024 /1024, 1) & " MB") logFile.WriteLine("Arquivos Apagados........... : " & Round(deleteSize / 1024 /1024, 1) & " MB") logFile.WriteLine("Sincronizados............... : " & Round(replaceSize / 1024 /1024, 1) & " MB") logFile.WriteLine("Copiados para o Destino..... : " & Round(copySize / 1024 /1024, 1) & " MB") logFile.WriteLine("Tempo de execuÃ§Ã£o........... : " & DateDiff("n", start, finish) & " MIN") logFile.WriteLine("Total Transferido........... : " & Round((replaceSize + copySize) / 1024 / 1024, 1) & " MB") logFile.WriteLine("Finalizado.................. : " & finish) logFile.Close() My problem is: Need to sync a lot of Dir's with just one VBS. Tnks Tag: Script to create scheduled task on remote computers Tag: 182853
  - 7
    - Using vbscript to set folder permissions and change security settings Hope this is the right group for this question. I have an automated installation script that configures servers for our software installation (which does things like create shares, create windows user accouts etc etc) - these are run on Windows 2003 server. The script is actually a "dos" batch file (xxx.bat). Currently, on Windows 2003 there are three things that I would like to be able to add to the scripting, which I think I will need to use a xxx.vbs vbscript file to do. The items I want to be able to script are as follows: 1. Undisable the guest account 2. Change the permissions on a share - specifically add the guest account and allow all users and all guests to have full access to the share. 3. Change the security on a folder as per the share. 4. Change some of the local/domain security policies - particularly ones that control password aging, minimum password length etc. Can anybody point me in the right direction for any/all of the above? Thanks in advance Simon Tag: Script to create scheduled task on remote computers Tag: 182849
  - 8
    - naive question? I was trying to get the html of the page in my intnet explorer object into a variable I tired first internet = oIE.Document.innerhtml and I got treated to the message like not supported Obviously it would have be easy if there were some sort of clipboard function to load into variable. I know how to use execwb to get content, select all etc but that is all useless I tried sendkeys - did not work I tired selectall, copy to clipboard, then open notepad and paste and save with sendkey. that sort of work However it is vulnerable to error, user could be switching windows and cause havoc Any other ways? Tag: Script to create scheduled task on remote computers Tag: 182848
  - 9
    - VB editor I find the VB editor in office is very useful. Can i call it in XP environment (not in office)? Because i just do some scripts in FSO or Shell? Thanks a lot. tony Tag: Script to create scheduled task on remote computers Tag: 182836
  - 10
    - Msgbox is it possible to have an auto-close msgbox in a number of seconds. thx. tony Tag: Script to create scheduled task on remote computers Tag: 182835
  - 11
    - Collecting sysinfo from remote servers Hello, I've been given the task to modify an existing (workable) script that collects system info of the local server. I would like to run this script from one central server to remote servers and collect all info in either a single file or folder on my central server. The below script works perfectly but I am uncertain to how I can automate the process of collecting remote server info rather than performing the mundane process of copying/pasting the file to the remote server, executing and moving the output file to the central server. Any help would be appreciated.. *************Script Begin********************** '****************************************** 'SysConfig.vbs ' ' Documents Current System Configuration ' '****************************************** Option Explicit Dim SystemSet Dim System Dim Service Dim colServices Dim colProcessors Dim Proc Dim colDiskDrives Dim Disk Dim PhysicalMemory Dim NumofProcs Dim OpSys Dim colOpSys Dim strBootDevice Dim strSystemDevice Dim strSystemDirectory Dim strWindowsDirectory Dim objBIOS Dim colBIOS Dim colNetAdapter Dim NetAdapter Dim colNetAdapterConfig Dim NetAdapterConfig Dim strIPAddress Dim strIPSubnet Dim strDefaultIPGateway Dim i Dim CompSysProd Dim colCompSysProd Dim Product Dim colProducts Dim strProduct Dim Share Dim colShares Dim PageFile Dim colPageFile WScript.Echo "Date/Time of Configuration Scan: " & Now WScript.Echo "" Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem") For Each System In SystemSet WScript.Echo "Hostname: " & System.Caption WScript.Echo "Domain: " & System.Domain 'WScript.Echo System.SystemType WScript.Echo "System Memory: " & System.TotalPhysicalMemory NumofProcs = System.NumberOfProcessors Next Set colOpSys = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem") For Each OpSys In colOpSys WScript.Echo "Operating System: " & OpSys.Caption & " " & OpSys.CSDVersion & " " & OpSys.Version WScript.Echo "Boot volume: " & OpSys.BootDevice WScript.Echo "System volume: " & OpSys.SystemDevice WScript.Echo "System Directory: " & OpSys.SystemDirectory WScript.Echo "Windows Directory: " & OpSys.WindowsDirectory wScript.Echo "Date of system install: " & OpSys.InstallDate Next Set colProcessors = GetObject("winmgmts:").InstancesOf ("Win32_Processor") WScript.Echo "Number of Processors: " & NumofProcs For Each Proc In colProcessors 'WScript.Echo Proc.SocketDesignation WScript.Echo "Processor: " & Trim(Proc.Name) Next WScript.Echo "" Set colPageFile = GetObject("winmgmts:").InstancesOf ("Win32_PageFile") For Each PageFile In colPageFile 'WScript.Echo PageFile.Caption 'WScript.Echo PageFile.CSName 'If PageFile.Description <> PageFile.Caption Then ' WScript.Echo PageFile.Description 'End If WScript.Echo "Pagefile drive: "& PageFile.Drive WScript.Echo "Pagefile filename: " & PageFile.FileName WScript.Echo "Pagefile size: " & PageFile.FileSize Wscript.Echo "Pagefile name: " & PageFile.Name Next WScript.Echo "" Set colDiskDrives = GetObject("winmgmts:").InstancesOf ("Win32_LogicalDisk") For Each Disk In colDiskDrives WScript.Echo "" WScript.Echo "Disk: " & Disk.Caption & " " & Disk.VolumeName If Not IsNull(Disk.Size) Then WScript.Echo "Disk size: " & Disk.Size End If Select Case Disk.DriveType Case 2 WScript.Echo "Drive type: Removable media" Case 3 WScript.Echo "Drive type: Local Disk" Case 4 WScript.Echo "Drive type: Network Drive" Case 5 WScript.Echo "Drive type: CD-ROM" End Select If Not IsNull(Disk.FileSystem) Then WScript.Echo "Disk filesystem: " & Disk.FileSystem End If Next WScript.Echo "" Set colCompSysProd = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystemProduct") For Each CompSysProd In colCompSysProd WScript.Echo "System model name: " & CompSysProd.Name 'If Not IsNull (CompSysProd.SKUNumber) Then ' WScript.Echo CompSysProd.SKUNumber 'End If WScript.Echo "System model version: " & CompSysProd.Version Next WScript.Echo "" Set colBIOS = GetObject("winmgmts:").InstancesOf ("Win32_BIOS") For Each objBIOS In colBIOS WScript.Echo "System Manufacturer: " & objBIOS.Manufacturer WScript.Echo "System BIOS version: " & objBIOS.Version WScript.Echo "System serial number: " & objBIOS.SerialNumber Next WScript.Echo "" WScript.Echo "-----Begin Networking Information-----" Set colNetAdapter = GetObject("winmgmts:").InstancesOf ("Win32_NetworkAdapter") For Each NetAdapter In colNetAdapter WScript.Echo NetAdapter.Caption WScript.Echo NetAdapter.Manufacturer If Not IsNull(NetAdapter.AdapterType) Then WScript.Echo NetAdapter.AdapterType End If If Not IsNull(NetAdapter.MACAddress) Then WScript.Echo NetAdapter.MACAddress End If If Not IsNull (NetAdapter.NetworkAddresses) Then WScript.Echo NetAdapter.NetworkAddresses End If WScript.Echo NetAdapter.ProductName Next WScript.Echo "" Set colNetAdapterConfig = GetObject("winmgmts:").InstancesOf ("Win32_NetworkAdapterConfiguration") For Each NetAdapterConfig In colNetAdapterConfig WScript.Echo NetAdapterConfig.Caption If IsArray(NetAdapterConfig.IPAddress) Then For i = 0 to UBound(NetAdapterConfig.IPAddress) WScript.Echo NetAdapterConfig.IPAddress(i) Next End If If IsArray(NetAdapterConfig.IPSubnet) Then For i = 0 to UBound(NetAdapterConfig.IPSubnet) WScript.Echo NetAdapterConfig.IPSubnet(i) Next End If If IsArray(NetAdapterConfig.DefaultIPGateway) Then For i = 0 to UBound(NetAdapterConfig.DefaultIPGateway) WScript.Echo NetAdapterConfig.DefaultIPGateway(i) Next End If If Not IsNull (NetAdapterConfig.MACAddress) Then WScript.Echo NetAdapterConfig.MACAddress End If Next WScript.Echo "-----End Networking Information-----" WScript.Echo "" Set colShares = GetObject("winmgmts:").InstancesOf ("Win32_Share") For Each Share In colShares WScript.Echo "" WScript.Echo "Share name: " & Share.Name WScript.Echo "Share caption: " & Share.Caption If Share.Description <> Share.Caption Then WScript.Echo "Share description: " & Share.Description End If WScript.Echo "Share path: " & Share.Path 'Debug ' WScript.Echo Share.Type 'End Debug Select Case Share.Type Case 0 WScript.Echo "Share type: " & "Disk Drive" Case 1 WScript.Echo "Share type: " & "Print Queue" Case 2 WScript.Echo "Share type: " & "Device" Case 3 WScript.Echo "Share type: " & "IPC" Case -2147483648 WScript.Echo "Share type: " & "Disk Drive Admin" Case -2147483649 WScript.Echo "Share type: " & "Print Queue Admin" Case -2147483650 WScript.Echo "Share type: " & "Device Admin" Case -2147483645 WScript.Echo "Share type: " & "IPC Admin" End Select Next WScript.Echo "" Set colProducts = GetObject("winmgmts:").InstancesOf ("Win32_Product") For Each Product In colProducts WScript.Echo "" WScript.Echo "Product name: " & Product.Name WScript.Echo "Product version: " & Product.Version If Not IsNull (Product.Vendor) Then WScript.Echo "Product vendor: " & Product.Vendor Else WScript.Echo "<no product vendor information>" End If Next WScript.Echo "" Set colServices = GetObject("winmgmts:").InstancesOf ("win32_service") For Each Service In colServices WScript.Echo "" WScript.Echo "Service: " & Service.Caption If Not IsNull (Service.Description) Then WScript.Echo Service.Description Else WScript.Echo "<no service description>" End If WScript.Echo " Executable: ", Service.PathName WScript.Echo " Status: ", Service.Status WScript.Echo " State: ", Service.State WScript.Echo " Start Mode: ", Service.StartMode Wscript.Echo " Start Name: ", Service.StartName Next WScript.Echo "" ************Script End***************** Tag: Script to create scheduled task on remote computers Tag: 182832
  - 12
    - how to show the html code that the WebBrowser want to save when he how to show the html code that the WebBrowser want to save when he want to save html+pictures with the "dialogbox" - before saving. this is the code to open the save "dialogbox" Me.WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, 0, 0 this is not good for me: Text1.Text = WebBrowser1.Document.documentElement.OuterHTML Tag: Script to create scheduled task on remote computers Tag: 182831
  - 13
    - Loop through checkboxes Good evening, I apologize if this message gets posted twice, my webbrowser behaved strangely when posting. I am having trouble with the following code: ****** For j = 1 to NoChkBx If Checkbox(j).checked Then msgbox j End If Next ****** The issue is with the synthax for the 2nd line "If Checkbox(j).checked Then"? What is the proper way with dealing with a variable in a control name? Thank you for the help, Daniel Tag: Script to create scheduled task on remote computers Tag: 182823
  - 14
    - Script to automate SSID wireless This is a multi-part message in MIME format. ------=_NextPart_000_0026_01C5DFC3.0C1337D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Is it possible to automate the setup of a wireless connection with the = settings we need for our network.=20 SSID (XXXXXXXXXXX) PEAP authentication NOT validating server certificates MSCHAP (Windows username and password). WEP enabled key is provided --=20 SHANE CLARK ------=_NextPart_000_0026_01C5DFC3.0C1337D0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1516" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>Is it possible to automate = the setup of a=20 wireless connection with the settings we need for our network.=20 </FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>SSID (XXXXXXXXXXX)</FONT></DIV> <DIV><FONT size=3D2>PEAP authentication</FONT></DIV> <DIV><FONT color=3D#000000><B><FONT color=3D#0000ff><FONT = color=3D#000000=20 size=3D2>NOT</FONT></B><FONT color=3D#000000 size=3D2> validating server = certificates</FONT></FONT></FONT></DIV> <DIV><FONT color=3D#0000ff><FONT color=3D#000000 size=3D2>MSCHAP = (Windows username and=20 password).</FONT></FONT></DIV> <DIV><FONT color=3D#0000ff><FONT color=3D#000000 size=3D2>WEP=20 enabled</FONT></FONT></DIV> <DIV><FONT color=3D#0000ff><FONT color=3D#000000><FONT = color=3D#0000ff><FONT=20 color=3D#000000 size=3D2>key is = provided</FONT></DIV></FONT></FONT></FONT> <DIV><FONT color=3D#000000><FONT color=3D#0000ff><FONT color=3D#000000=20 size=3D2></FONT> </DIV></FONT></FONT> <DIV><FONT face=3DArial size=3D2><BR>-- <BR>SHANE = CLARK</FONT></DIV></BODY></HTML> ------=_NextPart_000_0026_01C5DFC3.0C1337D0-- Tag: Script to create scheduled task on remote computers Tag: 182821
  - 15
    - synthax error? Good afternoon, I have the following entry as part of an HTA: UserInputHTML = UserInputHTML & "<select size=" & chr(34) & "1" & chr(34) & " name=" & chr(34) & "GrpListing" & chr(34) & " onChange=" & chr(34) & "EnumGrpMbr(GrpListing.Value , strComputer)" & chr(34) & ">" & vbCrLf However, this generates an error "Cannot use parenthesis when calling a Sub". How can I fix this. I have tried different things but have not managed to get it functional. The problem to my knowledge is with the "EnumGrpMbr(GrpListing.Value , strComputer)" . When I have only 1 variable to transfer to my sub it works fine, but when I tried to send 2 it gives me this error. What is the proper synthax? Thank you in advance! Daniel Tag: Script to create scheduled task on remote computers Tag: 182813
  - 16
    - Parse xml file in vbscript Hello all, I need to parse and xml file check whether a certain condition is true. In xml file, there is a commented out example, but still contains the text that I will be parsing. Any suggestions on: 1) How to parse an xml file in vbscript in general 2) How to bypass the comments in the xml file would be greatly appreciated! Thank you in advance! Tag: Script to create scheduled task on remote computers Tag: 182809
  - 17
    - User Credentials Hello, Is there a way with vbscript to reinitialize a user's credentials. Basically, when the Admin changes a users permissions on the main server, the user must logout and the back in for the changes to take effect. Is there a way using a simple script that it can go and update the current user's credentials without requiring logging out? Thank you, Daniel Tag: Script to create scheduled task on remote computers Tag: 182807
  - 18
    - Executing a vbs script from an asp.net page Thanks in advance. I know I have to impersonate a valid account and am doing so for folder creation but want to launch a vbs script with some parms to handle some permission changes (since that script already works). I do not know how to execute the script from the code behind. I am using the 1.1 framework and c#. Tag: Script to create scheduled task on remote computers Tag: 182803
  - 19
    - Close all IE windows at once I frequently end up with so many Internet Explorers open, that it would be useful to have a means of closing all IE windows in one step. Anyone know of a windows script (or maybe a .bat file) that could do this? Thanks Larry Tag: Script to create scheduled task on remote computers Tag: 182802
  - 20
    - FileSystemObject problems This is a query to do with classic ASP (written through vbscript). I am trying to run an asp page on my local Windows 2000 machine which creates a folder in the root directory of my site, but when I run the page it simply hangs when it gets to the FileSystemObject folder creation part (when I remove this line of code, the rest of the page works fine) The code is fine because it is working on the live server, so the problem is with the PERMISSIONS on my local Windows 2000 server. I've set ALL folders from wwwroot upwards with FULL rwx access for ALL users.. plus I've added the IUSR_(machinename) to this list with full access. I've did this through Explorer. I've run out of ideas on where else to set permissions... anyone got any ideas?? Thanks! Peter -- "I hear ma train a comin' ... hear freedom comin" Tag: Script to create scheduled task on remote computers Tag: 182800
  - 21
    - time synchronizer i need a script to synchronize my pc clock, with a server in internet Tag: Script to create scheduled task on remote computers Tag: 182799
  - 22
    - trying to achieve automation, need assistance I have created a deployment script to automate desktop deployment. I have enabled autologon using the local administrator account... But I am trying to figure out the best way to get the script to run at startup... Now, I know vbscript has a GPO interface but I have no idea how I would disable the deployment.vbs script from running at logon. I could put the script in the startup folder, but how would I remove it automatically? I couldn't delete the script while the script is running could i? Any thoughts? Tag: Script to create scheduled task on remote computers Tag: 182798
  - 23
    - DateAdd Bug? Small VBS to demonstrate an issue I have with the VBS DateAdd function: msgbox CDate("23/10/2005 22:15:00") = DateAdd("h", 22, DateAdd("n", 15, CDate("23/10/2005"))) This pops up a message box with False in it. Any suggestion as to why? This returns true: msgbox CDate("23/10/2005 22:15:00") = CDate(CStr(DateAdd("h", 22, DateAdd("n", 15, CDate("23/10/2005"))) (UK Locale!) Tag: Script to create scheduled task on remote computers Tag: 182793
  - 24
    - 70 permission denied in upload file I have a web application in asp that have to upload files. If I put the upload directory into C:\ directory I have no problem, but if I put it into the C:\InetPub\wwwroot directory it give me the error in the subject. I've set all the permissions on the upload directory (read, write, execute, ecc.) and also on the wwwroot directory, but evidently there is some permission that stop the writing of the uploaded file. I've also attempt to share the directory both as web share that as net share, but nothing to do. I have Win XP with IIS 5.1. Someone can help me? Thanks Tonio Tanzi Tag: Script to create scheduled task on remote computers Tag: 182792
  - 25
    - sending an email of log file that is created in new folder each time Hello, I am new to this forum and to scripting, and was hoping I could find some help. I want to email off a log file that is created each week. It puts the report into the following path (and the html log file name is always random): c:\Nov2005\Week1\log0011029273.html The month and week folders are created new each week, so I cant use a static file location. I have the following script that works fine for static files: -------------------------------------------- Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Example CDO Message" objMessage.Sender = "sc@co.com" objMessage.To = "sc@co.com" objMessage.TextBody = "This is some sample message text." objMessage.AddAttachment "c:\Nov2005\Week1\log0011029273.html" '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.co.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send ----------------------------------------------------------- ..but every time this report is run, it creates a new path to the new report file...so this has to be the current C:\month\week\randomlogfilename.html Any help in constructing this would be much appreciated. -- sc48226 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Script to create scheduled task on remote computers Tag: 182785
- Next
  - 1
    - error connecting to Active Directory via LDAP from ASP/VBScript pg I'm rather new to the world of VBScript/ASP. I'm a *nix-head and have been programming in PHP for years. I'm rather frustrated because I do not know how to go about trouble-shooting an error I'm receiving in a script I'm trying to implement to authenticate a user against AD. The script is as follows (found it in these usenet groups): <%@ Language=VBScript %> <% Dim username, password, ldapserver, ldap_path ' Construct the FQDN ldap_path = "LDAP://cn=##,DC=ourcollege,DC=edu" ' Get the ldap server name into local variable by replacing the special ' charcter with the username ldapserver = Replace(ldap_path,"##",Request.Form("username")) Response.Write("<b>username:</b> " & Request.Form("username") & "<br />") Response.Write("<b>ldapserver:</b> " & ldapserver & "<br />") ' Parse the username from the ldap path username = Mid(ldapserver, InStr(8, ldapserver, "/") + 1) Response.Write("<b>username:</b> " & username & "<br />") ' Get the password Password = Request.Form("Password") ' Connect to the LDAP Directory Set dso = GetObject("LDAP:") ' Validate the User Name and Password Set objUser = dso.OpenDSObject(ldapserver, username, password, 0) 'Response.Write("<b>lobjuser.class:</b> " & lobjUser.class & "<br />") 'Response.Write("<b>err.description:</b> " & err.description & "<br />") ' Exit with error - Incorrect username & password - return to login.asp page 'If Err.number<>0 Then ' Response.Write "<b>Result:</b> Authentication Failure.<br />" ' Set lobjUser = nothing ' Set dso = nothing 'Else ' Response.Write "<b>Result:</b> Success.<br />" 'End If 'To get information from the LDAP directory you need to know the "attributes" 'available and then you can reference them. Ex: 'strUserName = lobjUser.Get("cn")> %> The above code generates the very unhelpful error: error '8007054b' /ldap_auth_02.asp, line 29 Is there a system log which will give me more information on the error which occured? Is there something I can response.write to my browser which might give me a more useful error message? I recently put together a PHP script to connect to AD via LDAP. I had to bind to AD using a username (RDN?) and password before I could perform a query. (I apologize if I'm not using the appropriate terminology.) I then passed AD our Base DN, filter, and search terms. I can't find any documentation on this. My ultimate goal is to authenticate a user with their AD credentials. Tag: Script to create scheduled task on remote computers Tag: 182783
  - 2
    - SCSI Adapter Port Number Hi, Anyone know how to get the SCSI port number of a SCSI host adapter using vbscript? I can get the SCSIPort property of a disk object using WMI but there doesn't seem to be a port number property for the HBA. Please let me know if you would like more information, Much appreciated, Joe Marriott Tag: Script to create scheduled task on remote computers Tag: 182782
  - 3
    - HTA WBemScripting.SWbemSink Problem What am I missing? I keep getting an error on line: Set refSink = CreateObject("WBemScripting.SWbemSink","EVENTSINK_") *********************************** <html> <head> <title>Service Monitor</title> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <HTA:APPLICATION ID = "XApp" APPLICATIONNAME = "Service Monitor" BORDER = "thick" CAPTION = "yes" ICON = "" SHOWINTASKBAR = "yes" SINGLEINSTANCE = "yes" SYSMENU = "yes" WINDOWSTATE = "normal" SCROLL = "no" SCROLLFLAT = "yes" VERSION = "1.0" INNERBORDER = "no" SELECTION = "no" MAXIMIZEBUTTON = "yes" MINIMIZEBUTTON = "yes" NAVIGABLE = "yes" CONTEXTMENU = "yes" BORDERSTYLE = "normal"> <OBJECT ID="WindowsShell" CLASSID="clsid:13709620-C279-11CE-A49E-444553540000"></Object> <OBJECT ID="refSink" CLASSID="CLSID:75718C9A-F029-11d1-A1AC-00C04FB6C223"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Set WshShell = CreateObject("WScript.Shell") Set WSHFso = CreateObject("Scripting.FileSystemObject") Window.ResizeTo 600, 650 Window.MoveTo 5, 5 Dim refWMI Dim refSink Dim strQuery Dim strComputer Dim strServiceName Dim iCheckEvery Sub Test() strComputer = "." 'Server to check iCheckEvery = 30 'Seconds between checks 'connect to WMI and create a sink object Set refWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set refSink = CreateObject("WBemScripting.SWbemSink","EVENTSINK_") 'execute an async notification query and block with a msgbox strQuery = "SELECT * FROM __instancemodificationevent " & _ "WITHIN " & iCheckEvery & " WHERE TargetInstance ISA 'Win32_Service'" refWMI.ExecNotificationQueryAsync refSink, strQuery MsgBox("Now blocked and waiting...") 'cancel event notification refSink.Cancel Set refSink = Nothing Set refWMI = Nothing End Sub 'callback for Event Notification Sub EVENTSINK_OnObjectReady(refEvent,refContext) Msgbox(refEvent.TargetInstance.State) End Sub </script> </head> <body> <form name="form1"> <input name="bTest"type="button" value="Open" onClick="Test"> </form> </body> Tag: Script to create scheduled task on remote computers Tag: 182781
  - 4
    - Hide/Show HTML Elements Hi, I would like to show a status label above all other HTML elements when a certain function is fired. (for example: "Calculating..." I tried playing with .zIndex, .Display="none" and .Visible properties but none of the seem to be working for [web forms label] or Iframe (I use IFRAME to show label above ActiveX control) What is the easiest way for me to show hide information/status labels on a web form? document.getElementById("lblInfo").???? Thank you, Sergey Tag: Script to create scheduled task on remote computers Tag: 182778
  - 5
    - Server.CreateObject Excel permissions Hello All I am trying to port some ASP code over to a windows 2003 server. It works fine on my "dev" windows 2000 server. I get this error on the 2003 server: Error Type: Server object, ASP 0178 (0x80070005) The call to Server.CreateObject failed while checking permissions. Access is denied to this object. Here is the line of code associated with the error: set objExcel = Server.CreateObject("Excel.Application") I have Excel 2000 installed on both machines. From what I can tell I have set permissions the same on both machines. I set and checked the permissions on the actually Excel.exe file is that the correct file that CreateObject uses? What else should I be checking/setting permissions on so that this will work on the 2003 server? Thanks in advance. Adam Tag: Script to create scheduled task on remote computers Tag: 182776
  - 6
    - VBS to .net I just started working with .net and I'm wanting to know how hard it is to convert a .vbs to .net? The scirpt is a basic script that is 2 msgboxes and requires input from the user on both promts then it copies the results to the clipboard. Tag: Script to create scheduled task on remote computers Tag: 182775
  - 7
    - Query for Patches Applied I need a query that will run and send to text all of the patches applied to a server or workstation. I have one now, however, it doesn't give me the full history like when you click on history on the windows update site. And it does not tell me that XP SP2 was installed, when it actually was. I can share the code to my current script if needed. Thanks! Tag: Script to create scheduled task on remote computers Tag: 182774
  - 8
    - check membershipt to group using input boxes. Isn't binding corre strFilePath = "c:\test.txt" errorlog = "c:\error.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objtextFile = objFSO.OpenTextFile (strFilePath) Set objFile = objFSO.CreateTextFile(errorlog, True) ' On Error Resume Next ' moved this out of the Do loop objgroup = inputbox("Type group here") objuser = inputbox("type local user here") Do Until objtextFile.AtEndOfStream Set grp = GetObject("WinNT://" & strcomputer & "/" & objgroup & ",group") Set usr = GetObject("WinNT://" & strcomputer & "/" & objuser & ",user") strComputer = Trim(objtextFile.ReadLine) if len(strComputer) <> 0 then If (grp.IsMember(usr.name)) Then objFile.Writeline now & " user " &objuser & " is member of " & objgroup & " on " & strComputer Else objFile.Writeline now & " user " & objuser & " isn't member of " & objgroup & " on " & strComputer End If err.clear end if loop objFile.Close objTextFile.close result = objfso.OpenTextFile(errorlog, 1).ReadAll wscript.echo result Tag: Script to create scheduled task on remote computers Tag: 182772
  - 9
    - Startup script, alternative to %LogonServer%? I wish to copy a file from the Netlogon share within a startup script, however, I cannot use the %LogonServer% variable in a startup script (not logon script). Is there an equivilant variable? I could specify a specific DC, but as we have a number of sites I would prefer using the DC server that it is running the script from. Windows Server 2003 SP1 Windows XP Professional SP2 Tag: Script to create scheduled task on remote computers Tag: 182759
  - 10
    - Copy file Hi all I have a script that maps a network share and then copyies a file from this share down to the desktop. Instead of copying to the desktop I would like to copy to mapped share. (G:\Database) This is the script I have: Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive "x:", "\\Server1\Share1" Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("scripting.FileSystemObject") sAllUsersDesktop = oShell.SpecialFolders("AllUsersDesktop") oFSO.CopyFile "X:\DB\DB1", sAllUsersDesktop & "\", True I would like to chage it so instead of copying to the Desktop, it copies to G:\Database Thanks Gerry Tag: Script to create scheduled task on remote computers Tag: 182751
  - 11
    - exe file hi, is it possible to convert .vbs file into an .exe file? Tag: Script to create scheduled task on remote computers Tag: 182747
  - 12
    - net send message alternatives? Hello, I need a script to send real-time notifications to users. I wanted to wrap a vbScript around "net send [user] [message]" but that may not be possible in our environment. Other than a 3rd party tool, is this possible? Troy Tag: Script to create scheduled task on remote computers Tag: 182735
  - 13
    - Character match I want to match character sets to last names of users. Can someone please help me with the correct syntax: I.e. if lastName = [A-Bea] then 'I want this to match names beginning with A to last names that start with Bea. ... elseif lastName = [Beb-M] 'Names that begin with Beb all the way to names that begin with M ... else 'All other last names. ... Thanks. Tag: Script to create scheduled task on remote computers Tag: 182731
  - 14
    - TextFile Replace I am looking for a script that I can open a text file and search for a string and replace it with another string. set wf1 = fso.OpenTextFile("c:\HOME\computers.txt", ForReading, true) Do While Not wf1.AtEndOfStream Set RegX = NEW RegExp MyString = wf1.readline SearchPattern = "$Group Name$" ReplaceString = gname RegX.Pattern = SearchPattern RegX.Global = True ReplacedText = RegX.Replace(MyString, ReplaceString) loop wf1.close This doesn't work above, I don't receive any errors, however, it doesn't change the text to gName (is another variable that is set earlier in the code). Any assistance that can be provided is much appreciated. Tag: Script to create scheduled task on remote computers Tag: 182730
  - 15
    - Adding Users to local computers I need to add users to a local computer in our domain. We have a password complexity policy stating that the password must be 5 characters. When I run the following bit of code I get an error which is: -2147022651 The password does not meet the password policy requirements. Check the minimum password length, password complexity and password history requirements. If I run this same code on a computer that doesn't have password complexity requirements it adds the user fine. sName = "Testserver" sUsername = "Administrator" sUserPassword = "*********" sUser = "PatchUser" sNewAccountPassword = "!a2b3c4z" Set objDSO = GetObject("WinNT:") Set objComputer = objDSO.OpenDSObject("WinNT://" & sName, sUserName, sUserPassword, 3) Set objUser = objComputer.Create("user", sUser) objUser.Description = "New Test Account Created on " & Now objUser.SetPassword sNewAccountPassword 'Added to try to set password prior to writing to local account db. objUser.SetInfo objUser.SetPassword sNewAccountPassword objUser.SetInfo Tag: Script to create scheduled task on remote computers Tag: 182728
  - 16
    - Empty Recycle Bin I am trying to find a VBScript that will empty the recycle bin on Windows 2000 Servers and 2003 Servers. A friend found the following script but when I run it I get an "expected end of statement" error. Does anyone have a simple script that I can use or tell me what is run with this: Private Const SHERB_NOCONFIRMATION = &H1 Private Const SHERB_NOPROGRESSUI = &H2 Private Const SHERB_NOSOUND = &H4 Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" _ Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, _ ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Sub EmptyRecycleBin() Call SHEmptyRecycleBin(Me.hwnd, vbNullString, _ SHERB_NOCONFIRMATION Or _ SHERB_NOPROGRESSUI Or _ SHERB_NOSOUND) End Sub Thank You Tag: Script to create scheduled task on remote computers Tag: 182726
  - 17
    - split recordset in array Hi I am trying to split my recordset and found bit problem, hope someone can help me out below is my code: data = "help desk,student coordinator,pc support" msgbox data varArr = Split(data, ",") For group = LBound(varArr) To UBound(varArr) msgbox group Next I want them to return like Help desk student coordinator pc support so far, it return 0 1 2 Any helps thank in advance Wei Tag: Script to create scheduled task on remote computers Tag: 182723
  - 18
    - window.setInterval with negative delay time - Windows XP SP1 & SP2 Hello all, I have noticed (but haven't really proven) that setting the delay time in the window.setInterval function to -1 (or any negative value) has different effect on client machines with Windows XP SP1 versus SP2. window.setInterval( "AsyncUpdate();", -1 ); For Windows XP with SP2, it is working as expected (i.e. the timer is treated as if it's turned OFF). However with SP1, I suspected that the function behaves oppositely, i.e. the function within the timer gets called continuously and indefinitely, creating an endless loop and an extremely heavy load on the CPU. If anybody has experienced this same problem, please contribute to this thread. Thank you and happy programming! Lyndsey Tag: Script to create scheduled task on remote computers Tag: 182722
  - 19
    - image tag pointing to an ASP page (not working) Hi, i have 2 IIS Servers: IIS1 and IIS2 IIS1 hosts a page called http://www.mydomain.com/page1.asp IIS2 hosts an ASP page called http://www.mydomain2.com/page2.asp On the page2.asp on IIS2, the code basically retrieves the ID value shown in the example below. WHen page1 loads, it has a parameter called ID (http://www.mydomain.com/page1.asp?ID=1). Page1.asp on IIS1 has an image tag that points the src attribute to http://www.mydomain2.com/page2.asp?ID=1. I can't seem to retrive the values on page2 on IIS2. any ideas? please advise. rafael Tag: Script to create scheduled task on remote computers Tag: 182720
  - 20
    - Checking for a Folder on a remote computer I'm new to scripting but here goes. I have check for a folder on a remote computer and if it's not there create it. I would like it to report back to me if it is there are not. The script I've got so far works but the reporting doesn't. Can anyone give me a hand? strComputer = "computer" strNameSpace = "root/cimv2" strUser = "domain\user" strPwd = "password" strDirPath = "C:\itworks" Set objLocator = CreateObject("WbemScripting.SWbemLocator") Set objService = objLocator.ConnectServer(strComputer, strNamespace,strUser,strPwd) Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strDirPath) Then Wscript.Echo "The folder exists." Else Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\cimv2:Win32_Process") errReturn = objWMIService.Create _ ("cmd.exe /c md "& strDirPath, Null, Null, intProcessID) Wscript.Echo "The folder was created." End If Mark P.S. Later I would like to have the script copy files from a server to the remote computer. Any ideas would be a great help. Tag: Script to create scheduled task on remote computers Tag: 182716
  - 21
    - how to create computer accounts is it possible to script the creation of computer accounts in a given domain when the machine running the script is not apart of a domain? Tag: Script to create scheduled task on remote computers Tag: 182713
  - 22
    - database problems Hi all I have a sql database with some col headings like sxtnmm_proj , slide_proj which i asign values to like 0 or 1. What i want to do is is create a record set using ASP and write out the col headings where the value is 1, but instead of writting out for instance slide_proj you would get the word slide projector, i know these would have to stored in an array some how. Can anybody shed any light on this query thanks in advance Dave Tag: Script to create scheduled task on remote computers Tag: 182711
  - 23
    - Writing a login script........ Our co. is moving from Novell to AD and currently in the process of planning. Any PRO's out there have tips on the most efficient way to write a login script......... I've looked around and seem some that use the "IsMember" to check group membership, but that'll involve hardcoding the drive mapping for that group into the script. Any other suggested ways of writing a login script that will have less maintenance if future changes in mappings are required since our co. has a few thousand users I'd expect there be several drive mappings for each users. Or any good sites out there that have sample logon scripts Cheeers Momo Tag: Script to create scheduled task on remote computers Tag: 182709
  - 24
    - Help me edit this remote registry script This script goes remote to all computers found in c:\computerlist.txt and checks memoryconfiguration and exports it to CompInfoLog.txt. Instead of memoryconfig, I would like to check the registry for a specific stringvalue, and export that value to a txt file, Script: Const ForReading = 1 Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const OverwriteIfExist = -1 strInFile = "C:\ComputerList.txt" strOutFile = "C:\CompInfoLog.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strInFile, _ ForReading, FailIfNotExist, OpenAsASCII) Set objOutputFile = objFSO.CreateTextFile _ (strOutFile, OverwriteIfExist, OpenAsASCII) objOutputFile.WriteLine "Note: all memory amounts are in kilobytes" & vbCrLf Do Until objFile.AtEndOfStream strComputer = Trim(objFile.ReadLine) If strComputer <> "" Then objOutputFile.WriteLine String(40,"=") & vbCrLf If IsConnectible(strComputer, 1, "") Then On Error Resume Next Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer _ & "\root\cimv2") Set colCS = objWMI.ExecQuery("Select Model from Win32_ComputerSystem") For Each objCSItem In colCS Set objCS = objCSItem :Exit For Next Set colOSSet = objWMI.ExecQuery("Select * from Win32_OperatingSystem") For Each objOS In colOSSet Set objOS = objOS :Exit For Next If Err.Number = 0 Then s = "" s = s & "Computer name: " & strComputer & vbCrLf s = s & "Computer model: " & objCS.Model & vbCrLf s = s & "FreePhysicalMemory = " & objOS.FreePhysicalMemory & vbCrLf s = s & "FreeSpaceInPagingFiles = " & objOS.FreeSpaceInPagingFiles _ & vbCrLf s = s & "FreeVirtualMemory = " & objOS.FreeVirtualMemory & vbCrLf s = s & "TotalVirtualMemorySize = " & objOS.TotalVirtualMemorySize _ & vbCrLf s = s & "TotalVisibleMemorySize = " & objOS.TotalVisibleMemorySize _ & vbCrLf objOutputFile.WriteLine s Else objOutputFile.WriteLine strComputer & " failed WMI connection." _ & vbCrLf End If Else objOutputFile.WriteLine strComputer & " did not reply on ping." _ & vbCrLf End If End If Loop objFile.Close objOutputFile.Close MsgBox "Done!", vbInformation + vbSystemModal, "Get computer info" Function IsConnectible(sHost, iPings, iTO) ' Returns True or False based on the output from ping.exe ' ' Author: Alex Angelopoulos/Torgeir Bakken ' Works an "all" WSH versions ' sHost is a hostname or IP ' iPings is number of ping attempts ' iTO is timeout in milliseconds ' if values are set to "", then defaults below used Const OpenAsASCII = 0 Const FailIfNotExist = 0 Const ForReading = 1 Dim oShell, oFSO, sTempFile, fFile If iPings = "" Then iPings = 2 If iTO = "" Then iTO = 750 Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sTempFile = oFSO.GetSpecialFolder(2).ShortPath & "\" & oFSO.GetTempName oShell.Run "%comspec% /c ping.exe -n " & iPings & " -w " & iTO _ & " " & sHost & ">" & sTempFile, 0 , True Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, _ FailIfNotExist, OpenAsASCII) sResults = fFile.ReadAll fFile.Close oFSO.DeleteFile(sTempFile) IsConnectible = CBool(InStr(sResults, "TTL=")) End Function '--------------------8<---------------------- Tag: Script to create scheduled task on remote computers Tag: 182707
  - 25
    - include files Hi again :) I am doing a web application and I have a little problem. In Javascript I have something like <script languaje="javascript" src="my_file.js"> </script> But it doesn't work with vbscript :( How I can do it? Thanks you very much from Mallorca Fernando Tag: Script to create scheduled task on remote computers Tag: 182704

Hi Guys,
A newbie need some expert help on a script to create scheduled task on
remote computers...

I found one on technet; and edit slightly...

strComputer = InputBox("Machine name","Remote Software Deployment")
Set objService = GetObject("winmgmts:\\" & strComputer)
Set objNewJob = objService.Get("Win32_ScheduledJob")
errJobCreated = objNewJob.Create _
("Monitor.exe", "********123000.000000-420", _
True , 1 OR 4 OR 16, , , JobID)
If Err.Number = 0 Then
Wscript.Echo "New Job ID: " & JobID
Else
Wscript.Echo "An error occurred: " & errJobCreated
End If

Can any one tell me how can I have additonal prompt boxes to allow the
input for:
1. command line
2. the time task scheduled to run

Thanks alot

--
eang18
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Top

RE: Script to create scheduled task on remote computers by RunningWolf

RunningWolf
Fri Nov 04 23:22:02 CST 2005

I have found it helpful to incorporate the SCHTASKS command-line utility,
when creating tasks on remote servers with vbscript. It is available on XP
and 2003 systems. It can still be used to schedule tasks on 2000 systems.
If you type SCHTASKS /CREATE /? , you will find all the options available.

"eang18" wrote:

>
> Hi Guys,
> A newbie need some expert help on a script to create scheduled task on
> remote computers...
>
> I found one on technet; and edit slightly...
>
> strComputer = InputBox("Machine name","Remote Software Deployment")
> Set objService = GetObject("winmgmts:\\" & strComputer)
> Set objNewJob = objService.Get("Win32_ScheduledJob")
> errJobCreated = objNewJob.Create _
> ("Monitor.exe", "********123000.000000-420", _
> True , 1 OR 4 OR 16, , , JobID)
> If Err.Number = 0 Then
> Wscript.Echo "New Job ID: " & JobID
> Else
> Wscript.Echo "An error occurred: " & errJobCreated
> End If
>
> Can any one tell me how can I have additonal prompt boxes to allow the
> input for:
> 1. command line
> 2. the time task scheduled to run
>
> Thanks alot
>
>
>
> --
> eang18
> ------------------------------------------------------------------------
> Posted via http://www.codecomments.com
> ------------------------------------------------------------------------
>
>

Top