See if computer is active and connected

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
    - Task Scheduler & VBS Hello! I run a script using the Windows Task Scheduler with this comand line in the job MyTask.job wscript "d:\myscript.vbs" That's fine! But how can I know the name of the task who call the script? (in this example, it would be MyTask.job). I think I can use the log file of the Sheduler but does anyone know another way to do this inside myscript.vbs ? Thanks Tag: See if computer is active and connected Tag: 200178
  - 2
    - IADsComputer [adsi] interface using vbscript conundrum Can anyone please help me figure out what is missing from this Microsoft documentation? 1) Reference: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/iadscomputer.asp I have worked through the fact that the LDAP ADSI provider does not support the IADsComputer interface; the documentation claims that "The IADsComputer interface is not implemented by the LDAP ADSI provider". However the properties "OperatingSystem" and "OperatingSystemVersion" *are* available. Why?. 2) Reference: http://msdn.microsoft.com/library/en-us/adsi/adsi/provider_support_of_adsi_interfaces.asp Now, this is a great page because it summarises the fact that in order to get the other IADsComputer methodes and properties, we need to use the WinNT provider, which is detailed at this page: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/adsi_objects_of_ldap.asp The documentation at this page does not clearly indicate whether the WinNT provider is connecting to the actual physical computer or Active Directory with the WinNT://<domain name>/<server> ADsPath string. Which is it? 3) Using the WinNT provider, the properties documented at this page ( http://msdn.microsoft.com/library/en-us/adsi/adsi/iadscomputer.asp ) are supposed to be available, but they are NOT. This has me very puzzled; I have checked the "Requirements" but find nothing missing. I have been through the docs time & time again, but something is missing! See below... Example: Set oADSystem = GetObject ("LDAP://DC001/CN=MYSVR,OU=domain_servers,dc=contoso,dc=msft") Wscript.Echo "Active Directory Attributes" Wscript.Echo "ADsPath:" & oADSystem.ADsPath Wscript.Echo "Class:" & oADSystem.Class Wscript.Echo "OperatingSystem:" & oADSystem.OperatingSystem Wscript.Echo "OperatingSystemVersion:" & oADSystem.OperatingSystemVersion Wscript.Echo Set oPhSystem = GetObject ("WinNT://contoso.msft/MYSVR,Computer") Wscript.Echo "Physical Machine Attributes" Wscript.Echo "Name:" & oPhSystem.Name Wscript.Echo "Model:" & oPhSystem.Model Result: Active Directory Attributes ADsPath:LDAP://DC001/CN=MYSVR,OU=domain_servers,dc=contoso,dc=msft Class:computer OperatingSystem:Windows Server 2003 OperatingSystemVersion:5.2 (3790) Physical Machine Attributes Name:MYSVR E:\Temp\adaudit\test.vbs(11, 1) Active Directory: The directory property cannot be found in the cache. (I have a hrd time believing the the server does not have a "Model" attribute. Same error for the other properties: MemorySize, Processor, ProcessorCount, StorageCapacity, etc.) What am I missing? Anyone? Thanks in advance --Maarten Veerman Tag: See if computer is active and connected Tag: 200175
  - 3
    - Bulk import DNS Hello, I was wondering if anyone out there has a snippet that will do a build the framework for a mass import of DNS entries (AD intigrated), we need to add over 1700 entries. Any help would be great. Thanks. Terry. Tag: See if computer is active and connected Tag: 200174
  - 4
    - Remotely change Display Resolution Using script Is there a way to create a script that will do the following?: Create a list of computers that this script will affect. The script would change Resolution from 1024x768 to 800x600 automatically. And I would create another script to change it back. Tag: See if computer is active and connected Tag: 200173
  - 5
    - Remotely change Display Resolution Using script Is there a way to create a script that will do the following?: Create a list of computers that this script will affect. The script would change Resolution from 1024x768 to 800x600 automatically. And I would create another script to change it back. Tag: See if computer is active and connected Tag: 200172
  - 6
    - Using ADO DB to Manipulate Space Character Filled Strings I'm attempting to use ADO to manipulate data in fixed width text files as shown here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/f65b4a7c-eb8c-47f1-ba36-16ad8793026d.asp The issue I run into is that the fields which are all spaces or have trailing spaces end up with the spaces as null. Is there a way to force the OLE DB provider to bring them in as space characters? For example, store 2 spaces if the 2 character field is 2 spaces in the fixed width import file. Included below is an excerpt of my script and schema.ini file. I have tried changing the field type to text in the .ini file and obtained the same result. Script: On Error Resume Next ' Assign constants Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adCmdText = &H0001 Const FOR_APPENDING = 8 ' Assign file string variables strPathtoTextFile = "E:\Temp\" strOutputTextFile = "temp.txt" strToHostFile = "ALL_TOHOST.txt" ' Create ADO objects Set objConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") ' Create file system object for handling text files Set objFSO = CreateObject("Scripting.FileSystemObject") ' Open output text file Set objTextFile = objFSO.OpenTextFile _ (strPathtoTextFile & strOutputTextFile, FOR_APPENDING, True) Wscript.Echo "Opening OLEDB Connection" ' Open connection for input text file with OLEDB driver objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strPathtoTextFile & ";" & _ "Extended Properties=""text;HDR=NO;FMT=FixedLength""" Wscript.Echo "Selecting Records" ' Select records from input file objRecordset.Open "SELECT * FROM " & strToHostFile, _ objConnection, adOpenStatic, adLockOptimistic, adCmdText ' Obtain field count strFieldsCount = objRecordset.Fields.Count ' Build record string and write to file If strFieldsCount > 0 Then Do Until objRecordset.EOF For intLoop = 0 To (strFieldsCount - 1) strRecord = strRecord & objRecordset.Fields.Item(intLoop) Next objTextFile.WriteLine(strRecord) strRecord = "" objRecordset.MoveNext Loop End If objTextFile.Close Wscript.Echo "Script Complete" Schema.ini [ALL_TOHOST.TXT] ColNameHeader = False CharacterSet = ANSI Format=FixedLength Col1=FIELD1 char Width 1 Col2=FIELD2 char Width 2 Col3=FIELD3 char Width 14 Tag: See if computer is active and connected Tag: 200171
  - 7
    - Best method to figure out if someone is using cached credentials? Hello, I'm attempting to write a script that will figure out if a user is using cached credentials. What I figured to do is find the logon server, and see if it is the hostname of the PC, or not. if so, they aren't authenticating to a DC; if not, they are using cached credentials. The only problem is this will affect local users, who are obviously authenticating to the PC itself as well. Any way to tell if a user is using cached credentials? Thanks, Matt _____________________________________________ Dim objShell, strRegKey Dim strLogonServer, strComputerName Set objShell = CreateObject("Wscript.Shell") Set objEnvProcess= objShell.Environment("PROCESS") strLogonServer = Right(objEnvProcess.Item("LogonServer"), len(objEnvProcess.Item("LogonServer"))) - 2) strComputerName = objEnvProcess.Item("ComputerName") if strLogonServer = strComputerName then msgbox "logonserver is the same" Else msgbox "You have logged on locally. You may be using cached credentials." End If Tag: See if computer is active and connected Tag: 200169
  - 8
    - Excel find row data in every column Hi, What I have already is a vbscript that creates and populates an Excel spreadsheet with multiple columns of data. Now what I require is to take the data from each row in the each column, and search the other columns for this data. It then needs to do the same for the second column, and the third, and so on. So if I have columns of data, the script will take data from row 1, column 1 and check to see if that data is in any other cell. It then needs to tell me which column it is in. Once all the rows from column 1 have been searched for, it then does the same for column 2, column 3, etc. Here is what I have so far: The value y has been set elsewhere and represents the number of columns. y = y - 1 i = 4 t = 1 Do Until t = y 'Set range? Do Until objExcel.Cells(i, t).Value = "" strName = objExcel.Cells(i, t).Value Set objSearch = cols.Find(strName) If objSearch Is Nothing Then Else Msgbox y MsgBox strName & " was found." End If i = i + 1 Loop t = t + 1 Loop I am having difficulty defining the range to search at the moment. Any help would be very much appreciated. Matt Tag: See if computer is active and connected Tag: 200167
  - 9
    - paging Richard Mueller... Richard Mueller, please come to the front desk Richard, Sorry to bother you but you have helped me in the past when no one else could. I have a seemingly simple task but am struggling and becoming frustrated. In VBScript (that will later be ported to ASP) I need to do the following: Prompt for AD username (must be SAMAccountName) Display that users current Exchange mailbox size in MB Display the size limit imposed on that users mailbox The size limit is the biggest problem. If the user is NOT using defaults, and a custom limit has been set in AD, this should be easy enough to get. But if the user IS using the default size limit for his mailbox store, I have no idea how to first figure out what policy governs his store, and then read the policy to get the imposed limit. If you have an example of this I would greatly appreciate it. Thank you Tag: See if computer is active and connected Tag: 200160
  - 10
    - Query Active Directory Ports we have high security policy in our Data Center and every time installing New Server and then Active directory i have to check that AD ports are opened in the firewall or not is there anyway to query Active Directory opened ports on the remote Server (Parent DC). Thanks Tag: See if computer is active and connected Tag: 200157
  - 11
    - Vbs for WM2005 Hello i want to know if vbs exist for PocketPC ? Beacause i need to find a onboard laguage for both 2000/XP/VISTA and WM2003/2005 Thanks -- Vous voulez un conseil ? Ne faites jamais confiance à ceux qui vous donnent des conseils.(c) Tag: See if computer is active and connected Tag: 200144
  - 12
    - write data to Excel spreadsheet? Howdy- I've built some scripts using the FileSystemObject & CreateTextFile/ReadAll/WriteLine methods that take the contents of local logfiles (vendor-produced) and write them to another text file in a UNC path using schtasks. Now, the user wants the output to be in an excel spreadsheet... I don't think changing the format to .csv is going to work; the original logfiles vary between lines with five columns of data and lines with seven or none at all... Can I do this within the FSO or do I need to figure out how to use Excel.Application? Thanks, BM Tag: See if computer is active and connected Tag: 200132
  - 13
    - need help Here's what I need to do in a vbscript: If a certain file exists in a directory, I need to copy it to the backup/archive directory adding the date to the file name. Example - c:\files\filename.txt to c:\archives\filename_20061211.dat. I know how to do this is in DOS but not vbscript. Thanks. Chris Tag: See if computer is active and connected Tag: 200130
  - 14
    - exchange script question hi all. i need a script that will report 2 things: mailbox size limit, current mailbox size. does anyone have a quick example? my main concern is getting the size limit. if this is set via policy in exchange, how can the limit (in MB) be read? thanks Tag: See if computer is active and connected Tag: 200125
  - 15
    - VB Script Runs W/O Error, But Does Nothing! I've used this script in the past to change users Terminal Profile in Active Directory. This time when I ran it and it went error-free, but did absolutely noting by way of changing the Terminal Profile. Any ideas? '********************************************************************************** '* THIS SCRIPT CHANGES User Profiles * '* WRITTEN BY KERRY * '********************************************************************************** Option Explicit 'Demands that variables are "dimmed". 'On Error Resume Next 'Continue despite errors. (Disable Until Script is working.) 'Define Variables Dim objExcel 'Creates Excel Instance Dim objWorkbook 'Opens designated Excel Workbook Dim intRow 'Contains the row number of the Excel worksheet. Dim usrVar 'Contains the new user's full user name. Dim objOU, strOU, strUser 'Binds to the Organizational Unit Object. Dim objTermProfile Dim strTSprofile 'Connect to the object. Set objExcel = CreateObject("Excel.Application") 'Set the correct file location for the excel data file. '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Set the class list address below!!!! Set objWorkbook = objExcel.Workbooks.Open("C:\Class Lists 2006\9list.xls") 'Open the class list file. intRow = 2 'Variable for loop. Begins on 2 to bypass header row. Do Until objExcel.Cells(intRow,1).Value = "" 'Initiate loop. 'Set the Profile Path and the Terminal Services Profile Path for the account. strUser=objExcel.Cells(intRow,1).value Set objTermProfile=GetObject("LDAP://student1/cn=" & strUser & ",ou=Senior One,dc=mcistudent,dc=local") objTermProfile.Put "TerminalServicesProfilePath","\\TERMINAL1\termProfile.man" objTermProfile.SetInfo WScript.Echo "The new TprofilePath has been added to " & objExcel.Cells(intRow,4).Value & "'s account." intRow = intRow + 1 'Advance to the next row. Loop 'Repeat the loop. WScript.Echo "CHANGES TO THE " & StrOU & " ORGANIZATIONAL UNIT ARE COMPLETE." objWorkbook.Save 'Save the Excel file. objExcel.Quit 'Close the Excel thread and End Script Tag: See if computer is active and connected Tag: 200116
  - 16
    - Possible to add user to COM Security? Is it possible to script adding a user to COM Security in Access Permissions within DCOM (dcomcnfg)? Tag: See if computer is active and connected Tag: 200115
  - 17
    - help with combining two scripts Hi, i am a scripting n00b and found a script i would like to use to connect to a network share and open the network share. The script below connects to the network share, but i also would like explorer to open the "x:" drive after connecting to it. Can someone please tell me how i can accomplish that in this script? -->script: Option Explicit Dim objNetwork Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile ' Values of variables set strDriveLetter = "x:" strRemotePath = "\\192.168.x.x\blah" strUser = "user" strPassword = "password" strProfile = "false" ' This section creates a network object. (objNetwork) ' Then apply MapNetworkDrive method. Result H: drive ' Note, this script features 5 arguments on lines 21/22. Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _ strProfile, strUser, strPassword Thanks! Kim Tag: See if computer is active and connected Tag: 200111
  - 18
    - create user account in windows I need a vbscript to create user accounts on a windows computer. Its is a completely local computer, no domain or anything. I saw this script on Google groups and found that it works for creating 1 user. ---------------------------------------------------------------------------------------------------------------------------------------------- sNewUser = "mini-strator" sGroupname = "Users" Set oWshNet = CreateObject("WScript.Network") sComputerName = oWshNet.ComputerName Set oComputer = GetObject("WinNT://" & sComputerName) Set oUser = oComputer.Create("user", sNewUser) On Error Resume Next ' save the user oUser.Setinfo ' If user exists already, we get an error If Err.Number = 0 Then On Error Goto 0 oUser.SetPassword "1234" oUser.Fullname = "John" oUser.Description = "hi!" oUser.Setinfo End If On Error Goto 0 ' Add the user to the group Set oGroup = GetObject("WinNT://" & sComputerName & "/" & sGroupname) ' Use error handling in case he is a member already On Error Resume Next oGroup.Add(oUser.ADsPath) On Error Goto 0 ---------------------------------------------------------------------------------------------------------------------------------------------- However if I change the username and try to create another user, it doesn't work. For example if I run the above script once, then change it to: ---------------------------------------------------------------------------------------------------------------------------------------------- sNewUser = "mini-strator" sGroupname = "Users" Set oWshNet = CreateObject("WScript.Network") sComputerName = oWshNet.ComputerName Set oComputer = GetObject("WinNT://" & sComputerName) Set oUser = oComputer.Create("user", sNewUser) On Error Resume Next ' save the user oUser.Setinfo ' If user exists already, we get an error If Err.Number = 0 Then On Error Goto 0 oUser.SetPassword "1234" oUser.Fullname = "Betty" oUser.Description = "hi!" oUser.Setinfo End If On Error Goto 0 ' Add the user to the group Set oGroup = GetObject("WinNT://" & sComputerName & "/" & sGroupname) ' Use error handling in case he is a member already On Error Resume Next oGroup.Add(oUser.ADsPath) On Error Goto 0 ---------------------------------------------------------------------------------------------------------------------------------------------- It does not create a new user with the name Betty, just a user named John. Someone please help me with this. I need it urgently. Tag: See if computer is active and connected Tag: 200109
  - 19
    - Consolidate Specific Fields in text files to 1 Big File i'm newbie in VBScripting and i'd create one script to collect system information and i have other application that generates logs what i need to do is to have a VBscript that read log files and ONLY copy some fields then append it to the output file generated by my first script. Any Help Tag: See if computer is active and connected Tag: 200106
  - 20
    - viewing blobs vbsript asp Hi I am trying to set up a view application that will view stored wrd, pdf, jpg gif files in a larg blob in sql 2000. This is tying in with an older application that was written by somebody, all i want to do is have 1 view page that will show a list of the file attachments by id number and if clicked on will open them in exploer. thanks Mike Tag: See if computer is active and connected Tag: 200103
  - 21
    - VBScript That Copies Folder Content To Remote Computers Is anyone that can help me? I trying to create a VBScript copy folder to remote computer. I would like the VBScript that check to see if that folder I want to copy already exist on a remote computer, If the folder exists, then I would like the VBScript to move on the next computer, and if the folder doesn't exist I would like it to copy the folder to that remote computer and possible create a log file telling me which computers completed successfully and which ones didn't Tag: See if computer is active and connected Tag: 200101
  - 22
    - Read Registry Key Please give me a simple VBs that will read the values of 1 Registry key >Put them in some variables or an array > Then i will do something with that ................. What i want to do is : Read the values of [HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU] Put a's value in variable a Put b's value in variable b c value in c d in d etc. etc. OR .. . .. Put a's value in array Put b's value in the array etc. etc. ..... AND Put the value of MRUList in a different variable. -- Ayush Tag: See if computer is active and connected Tag: 200087
  - 23
    - Please Help !! VBscript convert my image/music file into VBscript file Dear all. I am not sure this is the RIGHT forum, but I hardly need help from all people who is familiar with VBscript. I received a email from my friend with attached with a *.vbs file, which is a image he claimed. After I download the file, the outlook just asked me to change seomthing, I had choosen NO. But after that, I found that all my image/music files were changed to VBscript script file and cannot open it anymore. I hardly need help to convert the (very important) image files back, anyone can help me please? Thank you very very very much. Tag: See if computer is active and connected Tag: 200086
  - 24
    - Missing vbscript Hope this is the right newsgroup - if not, apologies. I have tried to install iTunes on my WinXP laptop, but the installer says:"iTunes could not be installed because Visual Basic Script (VBScript) is not installed or has been disabled...." I've looked at Services, but there is no sign of VB, and a search doesn't seem to help. Any suggestions would be welcome. Thanks Tag: See if computer is active and connected Tag: 200084
  - 25
    - Call remote vbscript In order to make the program visible in the desktop, i create another vbscript in the remote PC. However, there is no response in the remote PC. May i know any wrong to the scripts below? remote vbscript ----------------------- Option Explicit Dim strProgram, strComputer, objWMIService, arrProcess, objProcess, objProgram, intSleep, strShell strProgram = "calc.exe" strComputer = "." intSleep = 15000 set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2") set arrProcess = objWMIService.ExecQuery("Select * from Win32_Process") For Each objProcess in arrProcess if(objProcess.Name = strProgram)then objProcess.Terminate() end if Next WSCript.Sleep intSleep set objProcess = objWMIService.Get("Win32_Process") set objProgram = objProcess.Methods_("Create").InParameters.SpawnInstance_ objProgram.CommandLine = strProgram set strShell = objWMIService.ExecMethod("Win32_Process", "Create", objProgram) WSCript.Quit local script ------------------ Dim sScriptName, sComputerName, oWmi, oWmi_Process, objSWbemLocator sScriptName = "D:\t.vbs" sComputerName = "abc" Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set oWmi = objSWbemLocator.ConnectServer(sComputerName, "root\cimv2", "abc", "a", "MS_409", "NTLMDomain:WORKGROUP") Set oWmi_Process = oWmi.Get("Win32_Process") oWmi_Process.Create(WScript.FullName & " " & sScriptName) WSCript.Quit Tag: See if computer is active and connected Tag: 200075
- Next
  - 1
    - naive question how can one catch end of file for openastextfile object? AtEndOfStream is only good for stream and I don't want to use stream because I want to read line by line Tag: See if computer is active and connected Tag: 200069
  - 2
    - shell.run problems :( I run a php script on localhost that contains vbscript in it to execute a program, like so: <?php $scripter = new COM("MSScriptControl.ScriptControl"); $scripter->Language = "vbscript"; $scripter->ExecuteStatement("Set WshShell = createobject(\"wscript.shell\")"); $scripter->ExecuteStatement("oExec = WshShell.Run(\"someprogram.exe\",1,TRUE)"); $scripter->ExecuteStatement("Set WshShell=nothing"); $scripter=null; ?> Now, if I have someprogram.exe already running, it will jump to that. If I don't, it will open up a new instance. Great, it works. However, the new instance is running as a SYSTEM process, and not my login name. I trying to automate a printout, and I can't set any settings on the printer for 'system', so it gets all funky. I have been searching all freaking day for a solution... is there one? PLEASE HELP :) Tag: See if computer is active and connected Tag: 200068
  - 3
    - iTunes Script (easy)... Hey, try this script out for iTunes (must have iTunes installed). Problem: iTunes can run minimized in the systray but in order to play, pause, volume, etc. you have to maximize it (which can be slow sometimes). Solution: Write a script! Try the following. You can make custom keyboard shortcuts for these scripts also -- make a shortcut on your desktop and open properties, then make shortcut key by hitting key of preference). 'Start Script ####################################################### Set objApp = CreateObject("iTunes.Application") objApp.PlayPause 'Here are properties to tinker with: 'objApp.Mute = True '(true to mute, false to unmute) 'objApp.SoundVolume = 100 '(values of 0-100) 'or use the following to increment the volume by 10 'units w/each click or hit: 'objApp.SoundVolume = objApp.SoundVolume + 10 'objApp.Rewind '(use objApp.Resume to stop RW) 'objApp.FastForward '(use objApp.Resume to stop FF) 'objApp.BackTrack '(previous track) 'objApp.NextTrack '(next track) 'objApp.Stop '(stops playback) 'objApp.Quit '(exits/closes iTunes) Tag: See if computer is active and connected Tag: 200065
  - 4
    - Help Please The following has been going on for over a week, and I can't find a solution: We send an email to approx. 200 dealers. The email is generated by a VBScript on a schedule. The VBScript access' a database for various information. The email is configured to HTML format. In the email there are two hyperlinks one to a French URL and one to an English URL. [PROBLEM] When some of the recipients receive the email the hyperlink is broke. eg. http://www.test.com/test.asp?dealer=1 111 (Spaces in the URL) Or (this just happened) eg. http://www.testcom/test.asp?dealer=1 111 (The period between test and com disappeared) [WHAT I TRIED] Put the whole thing in table tags with the nowrap attribute. Tried the <nobr> tag. Tried the <pre> tag. Any insight would be very much appreciated. Tag: See if computer is active and connected Tag: 200057
  - 5
    - Problems setting user account attributes on win2k member servers. I have written a simple script that sets the password required attribute to "Yes" on all systems with local accounts and if the computer is found to be a domain controller it exits out. The script works fine on any XP workstation and any windows 2003 member servers but if i run the same script on a windows 2000 member server, the script exits out with this error: Error: : -2147463168 Error (hex) : &H80005000 Source : Description : An invalid ADSI pathname was passed. Can anyone help me trouble shoot this behavior? Any answers in how to fix this error would be greatly appreciated. The script is below: On Error Resume Next 'Setting Constants: Const ADS_UF_PASSWD_NOTREQD = &H0020 sfile_out = "c:\temp\Localusers_required_password.txt" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTSOut = oFSO.CreateTextFile(sfile_out, True) 'Getting Computer name: set oNetwork = wscript.createObject("WScript.Network") 'Determing If the computer is a domain controller, member server, or a workstation. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & oNetwork.Computername & "\root\cimv2") Set colComputers = objWMIService.ExecQuery ("Select DomainRole from Win32_ComputerSystem") For Each objComputer in colComputers Select Case objComputer.DomainRole Case 0 strComputerRole = "Standalone Workstation" Case 1 strComputerRole = "Member Workstation" Case 2 strComputerRole = "Standalone Server" Case 3 strComputerRole = "Member Server" Case 4 strComputerRole = "Backup Domain Controller" Case 5 strComputerRole = "Primary Domain Controller" End Select If strComputerRole ="Standalone Workstation" then call work1 elseIf strComputerRole ="Member Workstation" then call work1 ElseIf strComputerRole ="Standalone Server" then call work1 ElseIf strComputerRole ="Member Server" then call work1 Else oTSOut.Write "The computer " & oNetwork.Computername & " is a domain controller. The script will not be run." Wscript.Quit End If Next '_______________________________________________________________________________ Sub work1 'Enumerating Users: Set colUsers = GetObject("WinNT://" & oNetwork.Computername) colUsers.Filter = Array("User") For Each objUser in ColUsers set usr = GetObject("WinNT://" & oNetwork.Computername & "/" & objUser.Name & ", user") flag = usr.Get("UserFlags") If flag AND ADS_UF_PASSWD_NOTREQD Then oTSOut.Write objUser.Name &": NO Password Required." &VbCrLf usr.UserFlags = flag XOR ADS_UF_PASSWD_NOTREQD usr.SetInfo If Err.Number <> 0 Then oTSOut.Write "The User's, " & objUser.Name &", password does not meet the complexity requirements. " & Err.Description &VbCrLf else oTSOut.Write "User, " & objUser.Name & ", has had the password required attribute set to yes."&VbCrLf End If oTSOut.Write VbCrLf Else oTSOut.Write objUser.Name &": Password Required." &VbCrLf oTSOut.Write VbCrLf End If Next oTSOut.close End Sub Tag: See if computer is active and connected Tag: 200051
  - 6
    - Encode/Encrypt/Protect VBScripts We have written some VB scripts that help us manage SQL Logins and Users. There is sensitive password data in the scripts and I was wondering what the best practice is for encrypting or protecting the scripts from prying eyes. I saw some posts about the Microsoft Script Encoder, are there any other options? Any ideas are greatly appreciated. Tag: See if computer is active and connected Tag: 200050
  - 7
    - Ascii Text file to Binary and back again I have an application written in VBscript. It is proprietary, but I can add vbs subroutines to it. The file that this application generates is a 512 x 512 matrix. Each data set in the matrix is consists of a real and imaginary number(floating point). This file is passed to a matlab script which performs Fast Fourier Transforms on it and rewrites the file as text. This file must be moved across a network that is encrypted. The file is so large that it can take anywhere from 20 to 45 minutes to move the file. In an experiment I created a similarly formatted file but it was a byte array, the file transferred in less than 2 minutes every time. I need a hint at some vbs code that would take a file which held a 512x512 matrix in text format, convert it to binary so I can get it across the network, then on the other side convert it back into the text format. Thanks M Tag: See if computer is active and connected Tag: 200047
  - 8
    - RND not random Hello, rnd() is not random (on my computer) Does anyone has an option for generating random numbers? I need random numbers between 0 and a million (1000000) Thanx, Marco L. (my script runs every 30 seconds) maybe I have to do something with the time!! Tag: See if computer is active and connected Tag: 200043
  - 9
    - Control Wireless Configuration Is there a way to turn on or off the check box within the Network Connection profile for a wireless adapter that says "Use Windows to configure my wireless settings"? I am trying to uninstall Thinkvantage Access Connection and use only the Windows software to create my wireless profiles. I have been able to create the profiles but need to ensure that the check box for Windows to control it is on. Thanks Talyn Tag: See if computer is active and connected Tag: 200030
  - 10
    - How can I adapt WinNT:// Moniker create account to Wbem.Scripting Moniker? Hi, It's easy to connect using WinNT:\\ class and add a user account and add it to the administrators group as seen below in my "create local user account code." But how does one find all the classes for doing this the WBem way? I have found only 1 or 2 WBEM classes and I've used them to connect to a remote computer, supplying alternate username/password using the Wbem Moniker as listed in the bottom script snippet. But once I'm connected using the wbem class, how can I do things like create and modify local accounts on the remote server as listed in the "create local user account code" There seems to be SO LITTLE info on the WBEM classes and methods, like adding a local account. Lots on AD, and lots on using Winmgmt and impersonate, but very little out there on wbem monikers using alternate credentials and the available classes. Anyone have any insights? L, S 'create local user account code begin Dim strComputer strComputer = "." Dim strUsr strUsr = i On Error Resume Next Set colAccounts = GetObject("WinNT://" & strComputer & "") Set objUser = colAccounts.Create("user", strUsr) objUser.SetPassword "pass123" objUser.SetInfo 'create local user account code end '================================== wbem connection conx and gets ip and mac: Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = objWbemLocator.ConnectServer _ (strComputer, strNamespace)', strUserName, strPassword) objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objItem in colItems WScript.Echo objItem.MACAddress For Each strAddress in objItem.IPAddress WScript.Echo strAddress Next Tag: See if computer is active and connected Tag: 200025
  - 11
    - VB script to add alias e-mail to all users My site is adding a new e-mail for all of my employees and I have to find a way to add an alias to all mailboxes. Does anyone know of a script that I can use to make this happen instead of having to go to each invididual user and manually add them? I'm running E2K3 SP2 and W2K3 SP2 AD TIA Tag: See if computer is active and connected Tag: 200024
  - 12
    - frames I am trying to implement tabs, here is the code snippet. The code does not work....why the frame is not set back to yahoo page...any clues <HTML> <SCRIPT LANGUAGE="JavaScript"> function tabOnClick(ID) { var oElement = null; for (var i = 0; i < tabs.length; i++) { oElement = document.getElementById(i); oElement.className = "tabOff"; } oElement = document.getElementById(ID); oElement.className = "tabOn"; var tab = tabs[ID].split("|"); //divTabFrame.innerHTML = "<IFRAME id='MyFrm' name='MyFrm' SRC="+tab[1]+" CLASS='tabFrame' FRAMEBORDER='0' SCROLLING='no' ></IFRAME>"; document.MyFrm.src = "http://www.yahoo.com" document.body.focus(); } <script> <BODY onLoad="tabLoad()"> <DIV ID="divTabButtons"></DIV> <IFRAME id='MyFrm' name='MyFrm' src ="http://www.google.com" CLASS='tabFrame' FRAMEBORDER='0' SCROLLING='no' ></IFRAME> </BODY> </HTML> Tag: See if computer is active and connected Tag: 200020
  - 13
    - EnumNetworkDrives skips a drive All, I've got a script I'm trying to use to remap drives from one server to another (contingency plan in case the first server has problems). It works great... except it seems to skip a drive on my machine. The code is posted below. When I look in the registry at \HKCU\Network\ I have 4 drives: J, K, Y, Z. However, my script does not appear to look at the J drive. I used WScript.Echo to verify which drives it is analyzing. (BTW, I apologize in advance for the poorly written code! Doing two separate tests [one on name and one on IP] was simply easier than learning how to do it properly heh]). Thanks in advance! Option Explicit Dim objNetwork, objDrive, intDrive, strOldShare,_ strOldIP, strNewShare, strNewUNC, strDriveLetter, objFSO Set objNetwork = WScript.CreateObject("WScript.Network") Set objDrive = objNetwork.EnumNetworkDrives Set objFSO = CreateObject("Scripting.FileSystemObject") strOldShare = "server1" strOldIP = "123.123.123.123" strNewShare = "server2" 'If we have no network drives, quit If objDrive.Count = 0 Then Wscript.Quit(0) End If For intDrive = 0 to objDrive.Count - 1 Step 2 WScript.Echo "Doing drive " & objDrive.Item(intDrive) WScript.Echo LCase(objDrive.Item(intDrive + 1)) If InStr (1,LCase(objDrive.Item(intDrive + 1)), strOldShare, 1) > 0 Then strNewUNC = Replace(LCase(objDrive.Item(intDrive + 1)), strOldShare, strNewShare, 1, 1, 1) strDriveLetter = objDrive.Item(intDrive) WScript.Echo "For " & strDriveLetter & " I will replace " &_ objDrive.Item(intDrive + 1) & " with " & strNewUNC ' Only delete and recreate if the destination exists If objFSO.FolderExists(strNewUNC) Then objNetwork.RemoveNetworkDrive strDriveLetter, True, True objNetwork.MapNetworkDrive strDriveLetter, strNewUNC, True Else WScript.Echo "The mapped network drive " & strDriveLetter & " at " &_ objDrive.Item(intDrive) & " was not mapped to " & strNewUNC &_ ".The destination did not exist." End If End If If InStr (1,LCase(objDrive.Item(intDrive + 1)), strOldIP, 1) > 0 Then strNewUNC = Replace(LCase(objDrive.Item(intDrive + 1)), strOldIP, strNewShare, 1, 1, 1) strDriveLetter = objDrive.Item(intDrive) WScript.Echo "For " & strDriveLetter & " I will replace " &_ objDrive.Item(intDrive + 1) & " with " & strNewUNC ' Only delete and recreate if the destination exists If objFSO.FolderExists(strNewUNC) Then objNetwork.RemoveNetworkDrive strDriveLetter, True, True objNetwork.MapNetworkDrive strDriveLetter, strNewUNC, True Else WScript.Echo "The mapped network drive " & strDriveLetter & " at " &_ objDrive.Item(intDrive) & " was not mapped to " & strNewUNC &_ ".The destination did not exist." End If End If Next WScript.Quit(1) Tag: See if computer is active and connected Tag: 200015
  - 14
    - Bringing IE to focus from add-in We're having an issue in bringing IE to focus on loading from PowerPoint add-in. Can you please help us in this regard. Steps are: 1) Create a DLL that has a form with a button in it a) Form should be a modal dialog b) On Click of the Button Internet Explorer should be automated and made visible --- shdocvw.dll is used to automate Internet explorer 2) Create an Add-ins referring that DLL 3) Include that Add-ins in excel application 4) Run the Macro of Add-ins to display the Form in DLL 5) Click the button to display IE 6) IE is loaded, but appears in a minimized mode in the Taskbar. Any Idea to make it visible in maximized mode Tag: See if computer is active and connected Tag: 200005
  - 15
    - Help with Calculation of Multiple Records I need help in calculating a score for each employee based on values submitted from drop-down boxes Example: Emp1 TeamScore(1-10) Emp2 TeamScore(1-10) Emp3 TeamScore(1-10) Emp4 TeamScore(1-10) Emp5 TeamScore(1-10) I want to take the values from each drop-down and multiply them by a weighted score that I get from another database table (ie 0.11 etc) I get a Type Mismatch (string) error when I run the following code: MLevel2 = "0" On Error Resume Next Set C9 = Server.CreateObject("ADODB.Connection") C9.Open "Provider=sqloledb;Data Source=ebs-sqlc1-vs3.edn.runi.com\SSS;UID=casuser;PWD=hppccas;DATABASE=skills" Set rsScors= Server.CreateObject("ADODB.Recordset") sSQ5 = "Select * from WgtScore where org = '" & session("orgg") & "' AND mgmtlevel = '" & MLevel2 & "'" rsScors.Open sSQ5, C9, adOpenKeySet,adLockReadOnly, adCmdText D5 = rsScors("QDiv5") SS5 = "0.0" S11 = round(rsScors("WS1"),2) rsScors.close set rsScors = Nothing strID = split(request.form("Emp"), ", ") QQ1 = split(request.form("Q1")* S11,",") FOR i = LBound(strID) TO UBound(strID) sSQL = "UPDATE EAPcurrentyear SET Q1= '" & trim(QQ1(i)) & "' where (empid ='" & strID(i) & "')" C9.Execute(sSQL) NEXT C9.Close Set C9 = Nothing %> Any help with this would be Greatly appreciated. Tag: See if computer is active and connected Tag: 200002
  - 16
    - Enumerating files in a folder beginning with ... Hello, I want to do some DIR command with VBscript. The following code is what i already have: <code> Set objFolder = objFSO.GetFolder(DrvLetter & "\") Set colFiles = objFolder.Files For Each objFile in colFiles LogBO = LogBO & objFile.Name & ", " & VbTab & FormatNumber(objFile.Size * BytesToKB, -1) & "KB, " & VbTab & objFile.DateLastModified & VbCrLf Next </code> This script enumerate the file name, the filesize in KB's and the Last Modified date. Now i want to enumerate only the files beginning with export*.mdb. How can I do this? Thnx in advance, Cees van Altena Tag: See if computer is active and connected Tag: 199998
  - 17
    - How to call a remote vbscript from a .Net windows application? How to call a remote vbscript from a .Net windows application? For example, there are 2 PC in the network. one is PC1 and another one is PC2. 1. A vbscript is stored in PC1. 2. windows application in PC2. In the scenario above, is there any way to call the vbscript which is located in PC1 from the windows application in PC2. Tag: See if computer is active and connected Tag: 199996
  - 18
    - Logic connection between exchange mailboxes and AD? Hi! :) I need to get data on our user accounts and the associated exchange mailboxes. I can enumerate eather separatly but have failed to find a common property or anything to connect them. I'm sure it's something simple, but what? I intend to enumerate one and then search for the matching entries in the other. So a matching searchable property would be great! :) Thanks a million! :) /Sofia Tag: See if computer is active and connected Tag: 199990
  - 19
    - Merge script does not merge in order 1, 2, 3. Hi The problem is that the merge is not done in order. Instead of merging 1, 2, 3.. it merges 1, 10, 11, 12, 2, 20, 21 and so on.. Anyone got some good advise to solve this? Thanks in advance. ------------------------------------ Option Explicit dim oArgs: Set oArgs = WScript.Arguments Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") dim filefolder Dim filefolderN Dim CurrentFolder Dim Files Dim File dim objts dim strContents dim endoffilepos filefolder = "C:\Test\" filefolderN = "C:\Test\Data\" Set CurrentFolder = fso.GetFolder(filefolder) Set Files = CurrentFolder.Files For Each fileName In files If left(File.Name,13) = "NewTestData_1" Then Set objTS = File.OpenAsTextStream(1) strContents = objTS.ReadLine objTS.Close Set objTS = fso.OpenTextFile(filefolderN & "\NewTestData.", 8,true) objts.writeline strContents objts.close Set objTS = fso.OpenTextFile(filefolder & "\NewTestData.log", 8, true) strContents = "Merge Completed for " & File & vbcrlf objts.write strContents objts.close File.delete end if Next Tag: See if computer is active and connected Tag: 199986
  - 20
    - Registry Permissions & Win APIs Hello all, First of all, I'd like to apologize if this has been asked before. I searched the group several times and to my dis-belief my mail reader did not come up with results. I find this to be very suspicious. Anyway, below are my questions. I'd like to modify registry key permissions with VBS and I would like to do it by using the Win APIs. I have a key under HKEY_LOCAL_MACHINE that I want to give full rights to Administrators and System. I want to give read rights to power users and I want to revoke all other rights for all other users. I've done VB, but am new to VBS so please do not ostercize me for this noob question. I have found how to do this in VB using the RegSetKeySecurity function in advapi32.dll. However, I can't even open a key in VBS using RegOpenKey because I receive a VBScript compilation error on the declaring function saying "Expected Identifier" [code] Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long [/code] Also, in setting up some constants, I get a compilation error of "Expected Literal Constant" [code] Private Const KEY_SET_VALUE = &H2 Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) [/code] Is it possible to directly use the Windows APIs from VB Script? If it is possible, what do I need to do to make this work? If it isn't possible, then what can I do that will work on Win 2k, XP Pro, and 2003 to change the security permissions on a registry key? Thank you, Travis Tag: See if computer is active and connected Tag: 199982
  - 21
    - HTML Tabs I have 3 ASP pages. I want to create a simple Tabbed layout in DHTML or some FREE ware code which will host these 3 pages in 3 different tabs...Do you know if such free code to create tab available...any samples will help Thanks Tag: See if computer is active and connected Tag: 199979
  - 22
    - .bat to VBScript Will someone please be so kind as to help me translate a .bat to vbscript? I can't seem to do it despite my best attempts. Here's the .bat: @echo off "\\131.62.80.10\HelpDesk\Scripts\BGInfo\BGInfo Server\BGInfo.exe" "\\131.62.80.10\HelpDesk\Scripts\BGInfo\BgInfo Server\Server.bgi" /SILENT /NOLICPROMPT /timer:0 As you can see, I am trying to run the BGInfo app from a share. I don't want to copy the .bat to everyone's startup folder rather I would like to run the vbscript command from group policy logon script. Thanks for any help you can offer. Tim Tag: See if computer is active and connected Tag: 199978
  - 23
    - 'loop' without 'do' Error I am having trouble with the following script file. Please help!!! '========================================================================== on error resume next Set fso = CreateObject("Scripting.FileSystemObject") Set noton = fso.CreateTextFile("M:\Technical Folder\Secret Squirrel\Tools\Cool VBS\Multi-Desktop File Copy\error.log") ' path to error log '**************************** Start of loop ************************** set bF = fso.opentextFile("M:\Technical Folder\Secret Squirrel\Tools\Cool VBS\Multi-Desktop File Copy\ComputerList.txt",1) ' open list of machines Do While bF.AtEndofStream <> True strmachine = bF.readline If objFSO.FileExists("\\" & strmachine & "\c$\Documents and Settings\All Users\Desktop\email.rdp") Then objFSO.DeleteFile "\\" & strmachine & "\c$\Documents and Settings\All Users\Desktop\email.rdp", True If err.number <> 0 Then noton.writeline strmachine & err.number 'writes to noton.txt machine that error End If err.clear LOOP '*************************** End of loop ************************************ wscript.echo "DONE!" Tag: See if computer is active and connected Tag: 199976
  - 24
    - Problem with IE7 vbscript and javascript Hi I need to call a javascript function from vbscript: <script type=3D"text/javascript"> function JSAlert(str){ alert(str); } </script> <script language=3D"vbscript"> Sub VideoPlayer_onGoToURL(url,target) call JSAlert(url) End Sub </script> It doesn=B4t work, but if I put 'msgbox url' before 'call JSAlert(url)' works. Could somebody help me? Tag: See if computer is active and connected Tag: 199973
  - 25
    - On Change.. Hi, can anyone help me? I am trying to make an input box not visible or readonly when a slect box above is changed. Here's my code: <select name=selStake style="Width: 146px;"> <option value="Mentor">Mentor</option> <option value="Institution">Institution</option> <option value="None">None</option></select> And i would like to make this box invisible or readonly when the above selct box is changed to "None" : <INPUT name=InstName> Any ideas or suggestion will be highly appreciated.Thanks Tag: See if computer is active and connected Tag: 199966

What's the best way to make a script that regularly checks to see if a
computer on the network is active and connected? I've been using a script
that does the simple ping cmd every 30 seconds, but I'd like something
proper and better.

Thanks

Top

Re: See if computer is active and connected by Richard

Richard
Tue Dec 12 22:25:54 CST 2006

Gary wrote:

> What's the best way to make a script that regularly checks to see if a
> computer on the network is active and connected? I've been using a script
> that does the simple ping cmd every 30 seconds, but I'd like something
> proper and better.

Seems like a ping would be best, as it imposes the least burden on the
remote machine and the network. I use:

ping -n 1 -w 500

because I believe one ping with a 500 millisecond timeout should be
sufficient for computers on the local lan. A longer timeout may be needed
over a wan.

--
Richard
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net

Top

Re: See if computer is active and connected by Gary

Gary
Wed Dec 13 01:31:51 CST 2006

Actually I just discovered about using the -n 1 only a very short time ago
lol. Yeah it certainly is more than enough to see if a network pc is
connected isn't it.

Thanks.

"Richard Mueller" <rlmueller-NOSPAM@ameritech.NOSPAM.net> wrote in message
news:uX2tP7mHHHA.3952@TK2MSFTNGP02.phx.gbl...
> Gary wrote:
>
>> What's the best way to make a script that regularly checks to see if a
>> computer on the network is active and connected? I've been using a script
>> that does the simple ping cmd every 30 seconds, but I'd like something
>> proper and better.
>
> Seems like a ping would be best, as it imposes the least burden on the
> remote machine and the network. I use:
>
> ping -n 1 -w 500
>
> because I believe one ping with a 500 millisecond timeout should be
> sufficient for computers on the local lan. A longer timeout may be needed
> over a wan.
>
> --
> Richard
> Microsoft MVP Scripting and ADSI
> Hilltop Lab - http://www.rlmueller.net
>

Top