Script to reboot PCs

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
    - Just-In-Time Debugger Shows Runtime Error in Startup Dialogue Box I'm just completing a working VBScript to use Telnet to send an e-mail when an error is detected by a scheduled task (for my sample I'm using not enough space on the C drive). I'm aware that there are also other solutions such as BLAT but I don't want to install any code. Everything seems to work well and I get the e-mail in my account but I have this nagging concern. The dialogue box labelled "Just-In-Time Debugger" has at the top the message "An exception 'Runtime Error' has occurred in Script.". It then lists Possible Debuggers of "New instance of Microsoft Script Debugger" and "New Instance of Microsoft Script Editor". If I step through there aren't any apparent problems. Do I really have a problem? Thoughts??? Tag: Script to reboot PCs Tag: 184032
  - 2
    - WSH Hotkey When setting the WSH .Hotkey property how is the hotkey value set to the default "None"? Whatever I use becomes the hotkey since the value assigned to this property must be a string. Dim oShell As New IWshShell_Class Dim oShortCut As New IWshShortcut_Class oShortCut.Hotkey = ??? 'Default..."None" oShortCut.Save Set oShell = Nothing Set oShortCut = Nothing I cant simply not refer to the hotkey property because it is overwriting an already existing shortcut that has a hotkey in place but needs to be overwritten. Tag: Script to reboot PCs Tag: 184031
  - 3
    - let user change permission on his home-folder dear vbs-ng, i could not find any help in the wsh-ng; may be you have an idea: the following script runs as a logon-script for a w2k3 domain for every user. it creates a home-folder and should set the permission for the administrator and the user. the permissions for the administrator are correct, but the user who started the script during login, does not have any rights. how can i give the user full right for its own home folder in a script ? thanx alot tim Dim WshNetwork, LogonUser Set WshNetwork = WScript.CreateObject("WScript.Network") Const WAIT_ON_RETURN = True Const HIDE_WINDOW = 0 Const USER_ROOT_UNC = "\\server01\home$" Const USER_ROOT_LOCAL = "D:\home" LogonUser = WshNetwork.UserName Call CreateHomeFolder(LogonUser) Sub CreateHomeFolder(strUser) Dim WshShell, objFS Set WshShell = Wscript.CreateObject("Wscript.Shell") Set WshNetwork = WScript.CreateObject("WScript.Network") Set objFS = CreateObject("Scripting.FileSystemObject") Call objFS.CreateFolder(USER_ROOT_UNC & "\" & strUser) Call WshShell.Run("cacls " & USER_ROOT_UNC & "\" & strUser & _ " /e /g Administrators:F", HIDE_WINDOW, WAIT_ON_RETURN) '--> setting the users permission Call WshShell.Run("cacls " & USER_ROOT_UNC & "\" & strUser & _ " /e /g " & strUser & ":F", HIDE_WINDOW, WAIT_ON_RETURN) End Sub Tag: Script to reboot PCs Tag: 184030
  - 4
    - Getting clients active DFS server name? Hi! :) I need to check the connection speed between the client and the server before I start a program installation. My problem is that the installation files are on a DFS share. What I need is a list of the possible servers for this DFS share and if possible, the currentlly active one. In windows(xp) it's just to right click the directory accessed through a dfs to see a list of the servers (The active one's marked). This must be possible to get this information through a script to... Please help. :) (I'm using Win32_PingStatus to get the speed of the connection. If anyone's got better way, please tell me. :) ) Thanks a million! :-) /Sofia Tag: Script to reboot PCs Tag: 184029
  - 5
    - Window name Hello, How to obtain the window name using only the executable path? Thanks, --=20 "A maior gl=F3ria n=E3o =E9 ficar de p=E9, mas levantar-se cada vez que se = cai." Conf=FAcio Vinicius Canto Xavier - MCP Windows 2000 Server & SQL Server Ciencias da Computa=E7=E3o 2004 - ICMC/USP - Brasil Tag: Script to reboot PCs Tag: 184026
  - 6
    - SENDKEYS to Login to Windows Guys ~ has anyone used SendKeys to script a login to Windows. So, we have a Windows PC sitting at a logon screen and with a ?ap deploy tool? deliver a script to login as local admin. Can it be done were a Sendkeys will actualy pull up the login screen? Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.SendKeys "^%{DELETE}" Your thoughts please - vusio ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Script to reboot PCs Tag: 184019
  - 7
    - Recursing Folders I have a task where I need to find matching file names under two folders including subfolders. I have a working recursive routine, but it seems to just quit recursing before completion. Does anyone have any ideas? Thanks a million for any help. Tag: Script to reboot PCs Tag: 184017
  - 8
    - How do you pass arguments to a script Back in DOS, you had batch files that could accept opening parameters. How does one do that in VBS? Tag: Script to reboot PCs Tag: 184013
  - 9
    - REGEXP Hello, I try to validate User Input via a Regexp. Unfortunately it is not working... The User types a chemical formular like: H2SO4 in order to handle this input properly via HTML the two numbers need to be put between <sub></sub>. And here where it all starts. Obviously these two tags have to occur in pairs. So I tried something like: ^\w*(<sub>\d*</sub>)*\w* But that didn't work out. Any ideas? thx Ralf Tag: Script to reboot PCs Tag: 184008
  - 10
    - remove duplicate itunes songs here's a little script to remove those annoying itunes duplicates. just needs some modification such as your itunes directory... ----------------- Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("D:\iTunes") Set colSubFolders = objFolder.Subfolders 'get inside each artist's folder For Each objSubFolder in colSubFolders 'Wscript.Echo objSubFolder.Name 'once inside the folder do the following... Set colSubSubFolders = objSubFolder.Subfolders 'Get inside each album folder For Each objSubSubFolder in colSubSubFolders 'once inside do the following 'WScript.Echo vbtab & objSubSubFolder.name Set colMP3Files = objSubSubFolder.Files For Each objMP3File in colMP3Files 'Wscript.Echo vbtab & objMP3File.Name strCurrentMP3Name = objMP3File.Name For Each objMP3File2 in colMP3Files 'Wscript.Echo Left(strCurrentMP3Name, Len(strCurrentMP3Name)-4) & vbtab & Left(objMP3File2.Name, Len(objMP3File2.Name)-6) If UCase(Left(strCurrentMP3Name, Len(strCurrentMP3Name)-4)) = UCase(Left(objMP3File2.Name, Len(objMP3File2.Name)-6)) Then 'Wscript.Echo(UCase(strCurrentMp3Name & vbtab & objMP3File2.Name)) Wscript.Echo objMP3File2.Path objFSO.DeleteFile(objMP3File2.Path) End If Next Next Next Next Tag: Script to reboot PCs Tag: 184005
  - 11
    - Problem runing EXE file with PARAMETERS Hello All I'm building a script to automatizing my work, first i have to take all the files in a directory and rename there name e.g - 000.jpg, 001.jpg, 002.jpg ... but if the file is bigger then 59KB the script will call a program (convert) to resize the file so far the script do it's job to rename the files, but when i call the exe file, nothing happen. can any one help me here function CreateNewFolder(byVal Path, byVal NewFolderName) Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") Dim FullPath FullPath = Path & NewFolderName if Not objFSO.FolderExists(FullPath) Then objFSO.CreateFolder(FullPath) CreateNewFolder = True Else CreateNewFolder = False End If Set objFSO = nothing End function ' ------------------------------------------ Dim objFSO Dim objFolder Dim FolderPath Dim objFolder_Contain Dim foundFile Dim Crate_Folder_Named Dim strFilename Dim MaxFileSize MaxFileSize = 59000 FolderPath = "f:\test\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(FolderPath) Set objFolder_Contain = objFolder.Files Set oShell = CreateObject("WScript.Shell") Crate_Folder_Named = "Renamed Files" Call CreateNewFolder(FolderPath, Crate_Folder_Named) Dim Prfix Dim i Dim Lenght Lenght = 4 i=0 iRC = 0 For Each foundFile In objFolder_Contain Prfix = "" strFilename = foundFile.name ' ------------------------- Build The prefix for evry File ------------------------ For ii=1 to (Lenght-Len(i)) Prfix = Prfix & "0" next Prfix = Prfix & i Extention = Right(strFilename, len(strFilename)-InStr(strFilename, ".")) '------------------------------------------------------------------------ Dim fso, f1 Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.GetFile(foundFile) If (f1.Size > MaxFileSize) Then iRC = oShell.Run("convert -resize 90% " & f1 & " " & FolderPath & "test.jpg", 0, True) 'iRC = oShell.Run("ping 127.0.0.1 -t", 1, True) If iRC <> 0 Then WScript.Echo "convert returned error level " & iRC Else WScript.Echo "Convert finished" End If End If f1.Copy(FolderPath & "\" & Crate_Folder_Named & "\" & Prfix & "." & Extention) i = i+1 Next Set objFSO = Nothing '--------------------- Msgbox "DONE" Tag: Script to reboot PCs Tag: 183998
  - 12
    - Question from newbie Hi all, I'm very new to VBScript. In fact, I've just learned VBScript today. My question is that whether or not I can call the Win32 API function GetSystemMetrics from VBScript ? In fact, I want to detect whether the machine is running Tablet PC OS. Thanks a lot. Tag: Script to reboot PCs Tag: 183994
  - 13
    - Displaying the format floppy disk window Hi all, Does anyone know the VBScript that will display the format a floppy disk window/dialog. Thanks very much for your help Karen Tag: Script to reboot PCs Tag: 183985
  - 14
    - How to clear Published Certificates in AD for all users using VB Hello All, We need to clear all our published certificates from AD. I was able to figure out how to do this per users/CN (script below) and I'm wondering if it is possible to do this at the OU level? Any help would be greatly appreciated. Thanks in advance! AJZ Const ADS_PROPERTY_CLEAR = 1 Set objUser = GetObject _ ("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com") objUser.PutEx ADS_PROPERTY_CLEAR, "userCertificate", 0 objUser.SetInfo -- AJZ ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Script to reboot PCs Tag: 183984
  - 15
    - Changing local admin passwords via vb script I found this script to change local computer account passwords. Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user") objUser.SetPassword("password") I am new to scripting and I am unsure if it is safe to run this script on the network. Does anyone have any experience changing passwords with scripts. Tag: Script to reboot PCs Tag: 183983
  - 16
    - Writing into HKCU\...\Policies Hi, Since there is no way I can use script to modify GPO on a client PC (the PC is not in the domain), I am trying to modify appropriate Registry key that is responsible for the policy I need: HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WindowsUpdate\DisableWindowsUpdateAccess"=dword:00000001 The problem is that a user does not local Administrator rights, so I cannot write that key/value. I could run VB script under local admin account, but then HKCU would become admins HKCU, and I need to modify HKCU for the user, not for the admin. I tried to play with HKEY_USERS tree and got some results on XP: I was able to find user's HKCU there and modify it, but on Windows 2000 SP4 the script fails. When I am enumerating subkeys in HKEY_USERS using StdRegProv function EnumKey (and the script is being run in the local admins context) it does not return list of subkeys representing user profiles. Instead, it retuns subkeys for .DEFAULT profie. Anyways, this probably not a good approach to do what I want. I could write some stuff on C++, but I need a hint how to elevate rights (maybe how to modify Access Token privileges or something like that) so that to change that registry key in HKCU. Thanks in advance, Alex Tag: Script to reboot PCs Tag: 183978
  - 17
    - Creating folders using VB Script Hello. I have a small task I need to do at work. I have to create 2 folders within a folder structure. However I need to create these 2 folders in EVERY SINGLE existing folder AND their subfolders. So let's say we have folders Parent1, Parent2 and Parent3, each has sub-folders named Sub1 and Sub2. This script needs to create a folder named New1 and New2 (examples) within all Parents and Subs. Also each parent doesnt necessarily have 2 sub folders... some have 1, others have 20. Anyone know of a good way of doing this? Cheers! Tag: Script to reboot PCs Tag: 183976
  - 18
    - How to enumerate moniker protocols ? Hi, In WinXP Pro, IIS 5.1 is managed by its own protocol, "IIS://", not by "winmgmts://.../microsoftiisv2/...". How should I enumerate moniker protocols with VBScript, and what docs should I read to learn what to do with them ? Thank you in advance for your reply. Tag: Script to reboot PCs Tag: 183970
  - 19
    - How to resize a .HTA ? Hi, I am looking at Scriptomatic 2.0 and it is a great sample of useful .HTA-application. I have long searched an easy way to write a non-primitive GUI in something simpler than C++, and Scriptomatic2 offers very useful patterns to borrow and follow. Now I would like to resize my own .HTA window and have all inputs/controls to obey this resizing. F.e., in Scriptomatic2, 1st and 2nd rows should stick to top, Language, Output Format, and bottom-right buttons should stick to right, big script edit window should be resized in both dimensions, and hostname-list window should be resized in width but not in height. Please suggest me how should I specify this behaviour in layout, or how should I handle events to implement this functionality. Thank you in advance for your replies. Tag: Script to reboot PCs Tag: 183969
  - 20
    - Thank you all for your help Dear people, With your help I have got a lot of useful knowledge about VBScript/WSH and other related stuff. Special thanks to ekkehard.horner , LakeGator, Bob Barrows, James Whitlow. Now I understand what docs I should read further. Hope I would get equally useful responses on my further questions. Thank you a lot. Tag: Script to reboot PCs Tag: 183968
  - 21
    - LDAP Query Anomaly. In trying to return postOfficeBox I came across this problem I still can't explain... Perhaps someone can shed some light into this for me. I ran the following script to query LDAP for postal address, postal code, samaccountname, etc... Everything returns fine, except for postofficebox. I subsequently pulled a script off the MS site that returned the postofficebox via enumerateusers function, but I don't understand why this script just fails on postofficebox? ***************************************************************************Â** Option Explicit Dim objRootDSE, strDNSDomain, objConnection, objCommand, strQuery Dim objRecordSet, strUserDN, strOS, strFilePath ' Determine DNS domain name from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") 'msgbox strDNSDomain ' Use ADO to search Active Directory for all users. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strquery = "<LDAP://ou=angrc,ou=ang,dc=ang,dc=ds,dc=af,dc=mil" & ">;(objectCategory=user);" _ & "cn,postalCode,sAMAccountName,userPrincipalName,postOfficeBox;subtree" 'msgbox strquery objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Spreadsheet file to be created. dim strExcelPath, objExcel, objSheet, i strExcelPath = "c:\scripts\users.xls" ' Bind to Excel object. On Error Resume Next Set objExcel = CreateObject("Excel.Application") If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Excel application not found." Wscript.Quit End If On Error GoTo 0 ' Create a new workbook. objExcel.Workbooks.Add ' Bind to worksheet. Set objSheet = objExcel.ActiveWorkbook.Worksheets(1) objSheet.Name = "AD Users" i = 1 ' Enumerate user objects. Do Until objRecordSet.EOF strUserDN = objRecordSet.Fields("sAMAccountName") i = i + 1 objsheet.cells(i, 1).value = strUserDN objsheet.cells(i, 2).value = objRecordSet.Fields("postOfficeBox") objsheet.cells(i, 3).value = objRecordSet.Fields("postalCode") ' End If objRecordSet.MoveNext Loop objExcel.Columns(1).ColumnWidth = 20 objExcel.Columns(2).ColumnWidth = 30 objExcel.Columns(3).ColumnWidth = 30 objExcel.Columns(4).ColumnWidth = 30 ' Save the spreadsheet and close the workbook. objExcel.ActiveWorkbook.SaveAs strExcelPath objExcel.ActiveWorkbook.Close ' Quit Excel. objExcel.Application.Quit ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objCommand = Nothing Set objConnection = Nothing Set objRecordSet = Nothing Wscript.Echo "Done" ********************************************************************* Tag: Script to reboot PCs Tag: 183967
  - 22
    - Copy to Clipboard via VBSCript? Hello all, Is it possible to copy a text to clipboard via VBScript? i tired the following given in MSDN but this is not working strCopy = "This text has been copied to the clipboard." Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.document.parentwindow.clipboardData.SetData "text", strCopy objIE.Quit Does any one have any other option? Best Regards Karthik Tag: Script to reboot PCs Tag: 183959
  - 23
    - ActiveX component can't create object: 'WScript.Shell' Hi, I'm trying to Print a PDF through VBS. I found related topics in this group. One solution I found was using WshShell.RegRead(...) But I'm getting following error for the code - Set WshShell = CreateObject("WScript.Shell") "ActiveX component can't create object: 'WScript.Shell'" I don't know the reason. I'm new to vbs and the issue is urgent. Can anyone help me? (I've installed Windows Script 5.6 .. What else should I check?) Tag: Script to reboot PCs Tag: 183953
  - 24
    - Check type TS protocol Hi all On my TS server users will logon via RCP and ICA. Login script I must set different settings for RDP users and ICA users eg if user Tom login via RDP I must set settings A in registry but if iser Tom login via Citirx I must set - B in registry Do you know via vbs chceck type of connection? Have a nice day, Michal Tag: Script to reboot PCs Tag: 183940
  - 25
    - Asp VBscipt and AOL proxy server variables. I hope this is the correct place to post this question. If not can someone point me at a more appropriate newsgroup. I have an Asp Vbscript server application which tries to get the ip address of the client. Mostly the ip address comes from IPAddress = Request.ServerVariables("HTTP_REFERER ") but where a proxy is being used this will contain the ip address of the proxy. In this circumstance the proxy server will normally place the real ip address into Request.ServerVariables("HTTP_X_FORWARDED_FOR") or HTTP_X_COMING_FROM or HTTP_FORWARDED_FOR etc etc My application deals with all that quite well but.... In the case of Aol this is not the case. All it sends is the proxy ip in HTTP_REFERRER and leaves the other server variables blank. I did find a note on the net which states that Aol do not forward the real ip as they consider it to be a security feature for their clients. But not everything reported on the net is correct. My question is: Can anyone confirm that it is simply not possible to obtain the real Ip address where the client is using Aol's proxy server? Then I can tell my boss to stop whittling and we can move on ;-) Regards Bill Tag: Script to reboot PCs Tag: 183939
- Next
  - 1
    - Verify OS of remote computers from txt file I can't get this script to connect to WMI of each pc in the text file.It will ping then so I know it's reading the text file. What I did notice is there is a space after the last letter of the computer name, eg.. 'computername ', I tried using the Trim() command but the space still remains. If the ping command can get around the space why can't the GetObject? Maybe this isn't the problem but it is the only thing I can find. '****************************** PC's are already in text file Set objInputFile = oFSO.OpenTextFile("c:\pingresult.txt", ForReading) arrTargets = Split(objInputFile.ReadAll, vbCrLf) objInputFile.Close '****************************** Cleanup TMP files oFSO.DeleteFile(fResultFile) oFSO.DeleteFile(objInputFile) '****************************** Ping each PC in TMP file For Each strTarget In arrTargets Set objShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget) strPingResults = LCase(objExec.StdOut.ReadAll) If InStr(strPingResults, "reply from") Then WScript.Echo VbCrLf & strTarget & " responded to ping." '****************************** Verify it is XP Servive Pack 1 Machine Set objWMIService = GetObject("winmgmts:\\" & strTarget & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems OSver = objItem.Caption & " " & objItem.CSDVersion Next '***************************** Run a repair command If Instr(OSver, "Windows XP Professional Service Pack 1") Then strPath = "\\Server\installs\SMS 2003 toolkit 2\Uninstall\SMSunIst\NewSMSclean.vbs" Set objShell = CreateObject("WScript.Shell") objShell.Run ("cmd /c " & "psexec.exe" & " -s " & _ "\\" & strTarget & " " & "cscript //nologo " & strPath),0,true Else '***************************** It's not XP Service Pack 1 then quit wscript.quit End if End if Next Tag: Script to reboot PCs Tag: 183938
  - 2
    - Netsh dhcp trouble i wish to use the netsh add server command in an unattended installation, however it will not work as it cannot find active directory. Anyone know how to get around this problem, i'm using 2003 Server standard. if i add the server through the gui it installs and authorises fine and it doesn't complain about Active directory then. thanks in advance D Tag: Script to reboot PCs Tag: 183937
  - 3
    - spawn a process and read/write its stdout/stdin - how to ? Hi, In Unix shell, Perl and CMD.EXE this operation is pretty common. (p1 | p2, or open("p2|")) Please suggest what should I use in VBScript. Thank you in advance Tag: Script to reboot PCs Tag: 183932
  - 4
    - WSH library reference Hi, Could you please direct me to more/less well organized reference on WSH library ? Sometimes official docs can be confusing for a beginner. For example, why "Dictionary" is in "Scripting.", and "RegExp" is in "VBScript." ? I have some background in Perl/Python/Ruby/Unix shell, so I would like to use WSH to its full potential. Especially I would like to know what interesting things can be done with CreateObject/GetObject. Please advise me a good way to find such knowledge. Thank you in advance. Tag: Script to reboot PCs Tag: 183927
  - 5
    - Getting Checkpoint VPN-1 status? Hi, In a script we need to detect if Checkpoint's SecuRemote is connected. Anyone know of a good way to do this? Regards, Mattias Tag: Script to reboot PCs Tag: 183926
  - 6
    - Script which tells, where user is logged on @Fosco: Thanks for the script. I already have similar solution for another thing. I was wondering, if there is any AD LDAP entry, which I can query for this information - it would be much easier and also faster. For the time being, I guess I would just use this kind of script... -- mcmallar ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Script to reboot PCs Tag: 183923
  - 7
    - Retrieve a property value by its name - how to ? Hi, For a WMI object, I can get a list of its property names from its ".Properties_" Now I would like to retrieve a list or map/hash of all its property names and values, in pairs. In fact, finally I would like to get a structured hierarchical pretty-print of its innards, like JSON, XML or s-expression notation. Please suggest me the shortest way to achieve this in VBScript. What should I start with ? May be there is something ready-made ? Are there special cases for computable properties ? I am quite a beginner in WSH/VBScript/WMI, so I would appreciate your useful responses. Thank you in advance. Tag: Script to reboot PCs Tag: 183921
  - 8
    - 'function'-like objects in VBScript Hi, In JScript, there is nice feature - function objects ("new Function"). Sometimes it is very useful to parametrize one function by passing it another functional object describing some specific actions in its body. Now I would like to know from you how to achieve similar functionality in VBScript ? Thank you in advance for your replies. P.S.: I would prefer JScript, but VBScript has better binding to COM and WMI, so I am forced to use VBScript. In JScript you have to hassle with VBArray/toArray, and it does not offer an easy way to put a SafeArray property back into the object. Don't know why Microsoft decided to do so ... Tag: Script to reboot PCs Tag: 183920
  - 9
    - Cluster Monitoring Script Error Problem Hi, I am writing a script ot monitor some veritas clusters. The basics of the script is that it connects to the clustered server name using WMI, then enumirates the actual servername, logs this in the Event log, which is then picked up by OpenView. This works well when the server is up, the problems I am having is that when the server is offline, the WMI call, does not seem to finish running and does not return anything so, the error code to detect if the server is offline is never run. So the warning message is not written to the event log. This is kind of defeating the point of my script, as I don't really need to know when they are up but need OpenView to log an event when they go offline. Here is the setion of code I am having problems with, Sub CheckCluster ( strClusterName ) msgbox strClusterName Set objWMIService = GetObject("winmgmts:\\" & strClusterName & "\root\CIMV2") If Err.Number<>0 then msgbox "Error Generated " & Err.Number & " and " & " strClusterName WriteEvent "Cluster : " & strClusterName & " Can't Be Contacted", 1 err.clear Exit Sub end if Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) if objItem = vbnull or For Each objItem In colItems strNodeName = objItem.CSName Next 'WScript.Echo "CSName: " & objItem.CSName If strNodeName <> "" Then strSiteName = left (strNodeName, 4) Select Case (strSiteName) Case "SIT1" strActiveSite = "Site 1" Case "SIT2" strActiveSite = "Site 2" End Select WriteEvent "Cluster : " & strClusterName & " Running on Node :" & strNodeName & " Active Site is : " & strActiveSite, 0 Else WriteEvent "Cluster : " & strClusterName & " CAN'T BE CONTACTED CHECK OTHER DATA CENTRE IF BOTH ARE DOWN LOG CALLL", 1 End If End Sub Thanks, Richy Tag: Script to reboot PCs Tag: 183918
  - 10
    - Load and Print PDF in IE Hello, I am developing a web application which will enable the users to print the PDF file stored on the server. The user should be able to print PDF through their local printers.So I am trying to Print a PDF through Scripting, and used "Acrobat Control for ActiveX". I was able to load the PDF in IE through Scripting, but PrintAll() or Print() command of the ActiveX control object doesn't seem to be working. I've used following code. <OBJECT id="myctr" height=480 width=640 classid=clsid:CA8A9780-280D-11CF-A24D-444553540000 VIEWASTEXT> <PARAM NAME="_Version" VALUE="327680"> <PARAM NAME="_ExtentX" VALUE="16933"> <PARAM NAME="_ExtentY" VALUE="12700"> <PARAM NAME="_StockProps" VALUE="0"> <PARAM NAME="SRC" VALUE="D:\usp\test.pdf">  </OBJECT> <script language =vbscript>myctr.Print()</script> How to invoke Print command of "Acrobat Control for ActiveX"? Tag: Script to reboot PCs Tag: 183916
  - 11
    - Create local users on computers defined in a textfile Hi, I wanna use a script that creates a local user account and sets a password on a list of computes defined in a textfile. I can´t make the script work. I would also like to have a second run of the script to append the logfiles failed.txt and success.txt and if possible have a timestamp written to the logfiles between runs. Is this possible? Regards Jason set fsomain=createobject("scripting.filesystemobject") set failedmachines=fsomain.createtextfile(".\failed.txt") set successmachines=fsomain.createtextfile(".\success.txt") Dim txtcomputername Dim passwrd On Error Resume Next set machines=fsomain.opentextfile(".\pcs.txt") Do While not machines.AtEndOfLine txtcomputername = machines.ReadLine Set colAccounts = GetObject("WinNT://" & txtcomputername & "") Set objUser = colAccounts.Create("user", "admin2") objUser.SetPassword "8520" Set objGroup = GetObject("WinNT://" & txtcomputername & "/Administrators,group") Set objUser = GetObject("WinNT://" & txtcomputername & "/admin2,user") objUser.SetInfo objGroup.Add(objUser.ADsPath) If Err Then HandleErr() Else successmachines.WriteLine txtcomputername & " success" nCount = nCount + 1 End If loop Sub HandleErr() failedmachines.WriteLine txtcomputername & " " & "failed. " & Err.Number Err.Clear End Sub 'Close all open files txtdata.close failedmachines.close successmachines.close 'Messagebox med klar MsgBox nCount & " computers updated" set fsomain=nothing set txtdata=nothing set usr=nothing set dellasset=nothing Tag: Script to reboot PCs Tag: 183915
  - 12
    - Script which tells, where user is logged on Thanks for info and code. I am very surprised that domain servers do not hold any info on who is logging on which machine. BTW, we do not use WINS. I heard it is possible to get this kind of information from WINS. -- mcmallar ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Script to reboot PCs Tag: 183913
  - 13
    - browse folder dialog Hi, how can open a 'browse folder dialog' in vbs? like this one http://www.fadata.de/Suchen.gif I want the user to pick a FOLDER not a FILE! Thx Robin Tag: Script to reboot PCs Tag: 183910
  - 14
    - display a message on a remote machine with vbs and without using (net send) Hey all. We have a set of kiosk machines that get signed on with low level user accounts (non admin/non power user type accounts) and I am trying to figure a way to popup a message on those machines using vbscript. I have tried both vbs and psexec and a combination of both, but I cannot seem to get the message to display. If I run a tasklist on the machines in question, I see the wscript job running, just never see the message? Surely someone has done this before? Tag: Script to reboot PCs Tag: 183891
  - 15
    - Finding Thin Client name I know there is a way to find the name of a Thin Client using a batch file but I would rather find the name of the client using VBS. Is this possible and if so how do I do it. I currently run a Citrix Server and am looking at using the ThinClient name as the variable for mapping default printers. This way I can map the printer by the location of the client. Thanks for the help! Tag: Script to reboot PCs Tag: 183889
  - 16
    - help with wscript.shell Below is my script for running a wsf nested with a seperate vbs file. The problem I'm running into is with the spaces in 'my group name' - If I put quotes around it, vbs execution fails (naturally). Is there a seperate character to depict quotes within quotes or something? Also, is it possible to use variables from within this line as well? like "My" & variable & "Group Name"? Set objApp = CreateObject("WScript.Shell") objApp.run "cmd /k cscript //nologo c:\progra~1\GPMC\Scripts\setGPOcreationpermissions.wsf my group name /Domain:Mydomain.com" Any help is appreciated -- Josh Messerschmitt Tag: Script to reboot PCs Tag: 183887
  - 17
    - detect IP subnet in login scrip I have some users that travel from site to site. Each site has a different IP subnets (assigned via local DHCP.) I would like my logon scrip to determine which office a user is logged into based on the computers IP address. That way I could call another logon script (or goto section of a logon script) based on the IP address. I can then add printers and/or map drives according to the office being used. -check local IP -if IP = a.a.a.* goto siteAlogon -if IP = b.b.b.* goto siteBlogon etc. Thanks Ken Tag: Script to reboot PCs Tag: 183886
  - 18
    - Customizing Output of Group Membership Currently, when I search for a users group membership i get an output like the following: Member of: CN=My Users,OU=Groups,DC=mydomain,DC=com How can I make it show like this: Member of: My Users I'm using VBScript. Tag: Script to reboot PCs Tag: 183881
  - 19
    - use ConnectObject without WScript? Hello. I'm trying to make a (vb)script that does sockets: IE: SET Test = WScript.CreateObject("MSWinsock.Winsock", "Test_") SUB Test_Connect() : msgBox "Test::Connected" : END SUB The problem is, the program in which the script runs within, doesn't let me use the WScript object. I get this error i nthe program that runs the script: Error '424'; Object required: 'WScript' I runs fine is I run the script with wscript.exe or cscript.exe I tried the following: SET Test = CreateObject("MSWinsock.Winsock") ConnectObject Test, "Test_" SUB Test_Connect() : msgBox "Test::Connected" : END SUB But I get this error: Type mismatch: 'ConnectObject' I saw na example of ConnectObject byitself, which seems to be the same as WScript.ConnectObject, so why wont it work? I just want to do sockets and use events from it! Thanks. Tag: Script to reboot PCs Tag: 183872
  - 20
    - detecting if printer is installed in logon.bat I am currently using the method below to install our printers during login in my logon script. rundll32 printui.dll,PrintUIEntry /in /n \\server1\hp-printer How can I detect whether or not the printer is already installed or not. If it is installed I want to skip that part of the login script. (I don't want to see the constant message that the printers are installing every time a user logs in once it has been installed for that user.) So I would like somthing in the logon.bat to detect if the printers are already installed. Thanks Ken Tag: Script to reboot PCs Tag: 183870
  - 21
    - Validate Months & Days of Week I need to build a string of valid months in the current language used by the system. Example: in English "January, February, etc." I also need to be able to build a language specific string of days of the week - "Sunday, Monday, etc." Does anyone know of a way to do this in VBScript? Tag: Script to reboot PCs Tag: 183864
  - 22
    - Microsoft VBScript runtime error: Object required: 'Request' Hello all, I'm desperate seeking for help here. I have a login.html embedded with VBScript. Whenever I run this, I get "Microsoft VBScript runtime error: Object required: 'Request'. Below is my source code. I did some searching but couldnt find anything. Can anyone point tell me what I'm doing wrong here? Many thanks in advance. <script language="vbscript"> dim strDSN strNTUserID = ucase(Request.ServerVariables("LOGON_USER")) strNTUserID = mid(strNTUserID,(instr(1,strNTUserID,"\")+1),len(strNTUserID)) response.cookies("WindowsLoginID") = strNTUserID </script> Tag: Script to reboot PCs Tag: 183862
  - 23
    - Problem with Addusers Script Hello, I just started at a school district as the network manager, the previous admin had the following script that adds users to AD, sets up home directory's and shares them out. I wanted to add the ability for them to be added to the correct groups within the script so I added the ***Add users to the xxx group**** section at the bottom. This part works great, but only when there is one line in the delimited text file we use as the source file. As soon as I put 2 or more user's in the input file, it will add only the first member to the group and will not add any others, everything else works fine in the script. I did also try this script on a windows2000 server and it did the same thing, so I dont think its because of windows 2003... Any help would be appriciated... Regards, Jason ************************************************************************************************************ ********************************************** ' User creation Script ' ' Input file format: ' ' Username:First:Last:Password '************************************************ Option Explicit Const ForReading = 1, ForWriting = 2 '************************************************* 'Declare the Variables '************************************************* Dim adsDomain, adsUser, fso, tsInputFile, strLine, arrInput,ObjOU Dim fldUserHomedir, wshShell, ShareRem, DomainAddr, MercuryFile,ObjGroup Dim ServerName, HomePath, ProfilePath, MailPath, DataDrive, CopyTo, CopyFrom Dim UName, FrName, LName, FName, PWord, THold, CreateMailDir, CreateProfilePath '************************************************** 'Set up where the server and AD are '************************************************** Set adsDomain = GetObject("LDAP://cn=users,dc=fhs_svr") DomainAddr = "@domainname" ServerName = "\\ourservername" DataDrive = "e:" HomePath = "\home\2007\" Set fso = CreateObject("Scripting.FileSystemObject") '********************************************************************** 'Open the text file as a text stream for reading. 'Don't create a file if users-to-create.txt doesn't exist '********************************************************************** Set tsInputFile = fso.OpenTextFile("Users.txt", ForReading, False) '********************************************************************** 'Execute the lines inside the loop, even though you're not at the end 'of the file '********************************************************************** While Not tsInputFile.AtEndOfStream PWord = "" '********************************************************************** 'Read a line, and use the Split function to split the data set into 'its separate parts '********************************************************************** strLine = tsInputFile.ReadLine arrInput = Split(strLine, ":") '********************************** ' Grab the Username '********************************** UName = arrInput(0) '********************************************************************** ' Grab the Frst and Last name and capilize and generate the full name '********************************************************************** THold = LCase(arrInput(1)) FrName = UCase(Left(Thold, 1)) & right(Thold, Len(THold) - 1) THold = LCase(arrInput(2)) LName = UCase(Left(Thold, 1)) & right(Thold, Len(THold) - 1) FName = FrName & " " & LName '********************************************************************* ' Grab the password and set it to all lowercase '********************************************************************* PWord = LCase(arrInput(3)) Set adsUser = adsDomain.Create("user","cn=" & UName) adsUser.Put "sAMAccountName", UName adsUser.Put "userPrincipalName", UName & DomainAddr '********************************************************************** 'Write the newly created object out from the property cache 'Read all the properties for the object, including 'the ones set by the system on creation '********************************************************************** adsUser.SetInfo adsUser.GetInfo '********************************************************************** 'Set the properties '********************************************************************** adsUser.AccountDisabled = False adsUser.IsAccountLocked = False adsUser.LoginScript = "login.bat" if CreateProfilePath Then adsUser.Profile = ServerName & ProfilePath & UName End if adsUser.PasswordRequired = True adsUser.DisplayName = Fname adsUser.FullName = Fname adsUser.Description = FName adsUser.Firstname = FrName adsuser.Lastname = LName '********************************************************************** 'Set the Home Directory '********************************************************************** adsUser.Put "homeDrive", "H:" adsUser.HomeDirectory = ServerName & "\" & UName & "$" '********************************************************************** 'Set the password '********************************************************************** adsUser.SetPassword PWord adsUser.pwdLastSet = 0 '********************************************************************** 'Stop referencing this user '********************************************************************** adsUser.SetInfo Set adsUser = Nothing '********************************************************************** 'Create the home directory '********************************************************************** If Not fso.FolderExists(DataDrive & HomePath & UName) Then Set fldUserHomedir = fso.CreateFolder(DataDrive & HomePath & UName) End If '********************************************************************** 'Set full rights for the user to the Home directory and Share it Out '********************************************************************** ShareRem = " /GRANT:Everyone,Full /UNLIMITED /REMARK:""" & FName Set wshShell = WScript.CreateObject("Wscript.Shell") wshShell.Run "cacls " & DataDrive & HomePath & UName & " /e /g " & UName & ":C", 1, True wshShell.Run "net share " & UName & "$=" & DataDrive & HomePath & UName & ShareRem, 1, True Wend **********************THESE ARE THE LINES I HAVE ADDED AND ARE THE ITEMS IN QUESTION******** '*********************************************************************************************** 'Add new user to the Students Group '*********************************************************************************************** Set objGroup = GetObject("LDAP://CN=StudentsMSE,OU=GroupsMSE,OU=Groups,dc=fhs_svr") ObjGroup.add "LDAP://CN=" & UName & ",CN=Users,DC=fhs_svr" ObjGroup.SetInfo '********************************* 'Close the file '********************************* tsInputFile.Close Tag: Script to reboot PCs Tag: 183860
  - 24
    - Import Remote Registry Using RegEdit you are able to connect to the HKLM and HKUsers portions of a remote registry (given the proper rights). I have researched this for some time, but I'm still unable to simulate this action with vbs without the use of SENDKEYS, which is the kiss of death, to say the least. I've also researched extensively on any RegEdit.exe switches, etc..., but have found nothing that would work in this fashion. Anyone done this before, or know how to in a clean and efficient way ?? Thx !! ESP Tag: Script to reboot PCs Tag: 183858
  - 25
    - uploading and processing a password protected word document with asp Hello, An ASP page on my IIS server converts an uploaded word document to HTML, but I'm having a problem with it failing (hanging and popup requesting password on server!) on password protected word documents. (web upload, backend processing and web delivery) I spent the whole day on google to find a solution. What I am looking for is an asp script or a property that can look at a word document and just return a yes or no as to whether it is protected, so I can then refuse to upload it, until the user has removed the protection. Any ideas? Thanks! Wout Tag: Script to reboot PCs Tag: 183856

Hi all,

I was wondering if you can show me the code necessary reboot a Windows 2K or
Windows XP equipmented PC? I frequently remote into a number of PCs and
sometimes the need a reboot. Instead of asking someone directly and asking
them to reboot the machines, isn't there a way to write a VBS script to do
that?

Can you also share with me the JScript equivalent for the WSH environment?
Many thanks.

Ben

--

Top

Re: Script to reboot PCs by y

y
Mon Nov 28 08:40:22 CST 2005

"Ben" <Ben@discussions.microsoft.com> wrote in message
news:F43D8C3A-7D94-45E7-900A-EE84895F5DEB@microsoft.com...
> Hi all,
>
> I was wondering if you can show me the code necessary reboot a Windows 2K
> or
> Windows XP equipmented PC? I frequently remote into a number of PCs and
> sometimes the need a reboot. Instead of asking someone directly and
> asking
> them to reboot the machines, isn't there a way to write a VBS script to do
> that?
>

http://www.microsoft.com/technet/scriptcenter/scripts/desktop/state/dmstvb07.mspx

Y Sakuda from JPN

Top

Re: Script to reboot PCs by Ben

Ben
Mon Nov 28 15:16:13 CST 2005

Thanks Sakuda.

Ben

--

"y sakuda" wrote:

> "Ben" <Ben@discussions.microsoft.com> wrote in message
> news:F43D8C3A-7D94-45E7-900A-EE84895F5DEB@microsoft.com...
> > Hi all,
> >
> > I was wondering if you can show me the code necessary reboot a Windows 2K
> > or
> > Windows XP equipmented PC? I frequently remote into a number of PCs and
> > sometimes the need a reboot. Instead of asking someone directly and
> > asking
> > them to reboot the machines, isn't there a way to write a VBS script to do
> > that?
> >
>
> http://www.microsoft.com/technet/scriptcenter/scripts/desktop/state/dmstvb07.mspx
>
> Y Sakuda from JPN
>
>

Top