i want to know how to start and stop a process in vbscript?

Hi,
What have you tried so far?
Regards,
Dave.



Show quoteHide quote

i haven't tried anything , as i dont know how to do it ?
that is why i have asked people here how to doi t

Have not searched the net for code examples?  And tried to understand?


Show quoteHide quote

Hi Miztiik,
Apologies for being blunt.
Are you looking for someone to supply a code snippet (that probably won't
work on its own - i.e. that you will have to tweak into something useful) or
a full program?
Regards,
Dave.

Show quoteHide quote

some kind of crude login script would suffice me, so i can modify/customise it

Hi Miztik,

Below is an example of running a command, on the local machine, in a
minimized/hidden DOS window.
Is this the kind of "process" you want to run?

Regards,
Dave.



Option Explicit

Const cs_fac = "%myscript, "

Const ci_for_reading  =  1
Const ci_for_writing  =  2
Const ci_for_appending  =  8

Const ci_event_success  =  0
Const ci_event_error  =  1
Const ci_event_warning  =  2
Const ci_event_information =  4
Const ci_event_audit_success =  8
Const ci_event_audit_failure = 16

Const ci_popup_mark  = 16
Const ci_popup_question  = 32
Const ci_popup_exclamation = 48
Const ci_popup_info  = 64

Const ci_windows_folder  =  0
Const ci_system_folder  =  1
Const ci_temporary_folder =  2

Const cs_bs    = "\"

Dim go_fso, go_wsh
Dim gs_temp_file, gs_temp_path, gs_temp_spec
Dim ls_command, ll_status, lo_file, ls_file

  Set go_fso = CreateObject( "Scripting.FileSystemObject" )
  Set go_wsh = CreateObject( "WScript.Shell"   )

   gs_temp_file = go_fso.GetTempName
  gs_temp_path = go_fso.GetSpecialFolder( ci_temporary_folder )
  gs_temp_spec = gs_temp_path & cs_bs & gs_temp_file

  ls_file = gs_temp_spec

    ls_command = "dir > """ & ls_file & """"

    On Error Resume Next
    ll_status = go_wsh.Run( "%comspec% /c " & ls_command, 0, True )
    If Err.Number <> 0 Then Call s_error( cs_fac & "Error running command `"
& ls_command & "`..." )
    On Error Goto 0

    If ll_status <> 0 Then Call s_abort( cs_fac & "Failure status `" &
ll_status & "` whilst running command `" & ls_command & "`..." )

    Set lo_file = go_fso.GetFile( ls_file )
    If lo_file.Size = 0 Then
      lo_file.DeleteFile
      Call s_abort( cs_fac & "Generated an empty, zero byte, file..." )
    End If

WScript.Quit(0)




Sub s_warning( ps_message )
  Const cs_fac = "%s_warning, "
  Dim ls_message, ls_error
  ls_error = Trim( Replace( Err.Description, vbCrlf, "" ) )
  ls_message = cs_fac & "Script has encountered an error, and cannot process
the requested action, script will continue..."
  ls_message = ls_message & vbCrlf & "  at:     " & fs_datetime(Now)
  ls_message = ls_message & vbCrlf & "  reason: " & ps_message
  ls_message = ls_message & vbCrlf & "  error:  " & Err.Number
  ls_message = ls_message & vbCrlf & "  text:   " & ls_error
  ls_message = ls_message & vbCrlf & "  source: " & Err.Source
  Call s_log_event( ci_event_warning, ls_message )
  Call s_msgbox( ls_message )
End Sub

Sub s_error( ps_message )
  Const cs_fac = "%s_error, "
  Dim ls_message, ls_error
  ls_error = Trim( Replace( Err.Description, vbCrlf, "" ) )
  ls_message = cs_fac & "Script has encountered an error, cannot continue,
and will now abort..."
  ls_message = ls_message & vbCrlf & "  at:     " & fs_datetime(Now)
  ls_message = ls_message & vbCrlf & "  reason: " & ps_message
  ls_message = ls_message & vbCrlf & "  error:  " & Err.Number
  ls_message = ls_message & vbCrlf & "  text:   " & ls_error
  ls_message = ls_message & vbCrlf & "  source: " & Err.Source
  Call s_log_event( ci_event_error, ls_message )
  Call s_quit( ls_message )
End Sub

Sub s_abort( ps_message )
  Const cs_fac = "%s_abort, "
  Dim ls_message
  ls_message = cs_fac & "Script is aborting, and will now stop..."
  ls_message = ls_message & vbCrlf & "  at:     " & fs_datetime(Now)
  ls_message = ls_message & vbCrlf & "  reason: " & ps_message
  Call s_log_event( ci_event_error, ls_message )
  Call s_quit( ls_message )
End Sub

Sub s_quit( ps_message )
  Const cs_fac = "%s_quit, "
  Dim ls_message
  If ps_message = "" Then
    ls_message = cs_fac & "Script quit at " & fs_datetime(Now)
  Else
    ls_message = ps_message
  End If'
  Call s_log( "" )
  Call s_msgbox( ls_message )
  If ps_message <> "" Then Call s_log( cs_fac & "Script quit at " &
fs_datetime(Now) )
  WScript.Quit
End Sub

Sub s_log_event( pi_status, ps_message )
  Const cs_fac = "%s_log_event, "
  Dim ls_text
  ls_text = ""
  ls_text = ls_text & "Script:" & vbTab & gs_script_spec  & vbCrlf
  ls_text = ls_text & "Date:"  & vbTab & fs_datetime(Now)  & vbCrlf
  ls_text = ls_text & "Username:" & vbTab & go_net.UserName  & vbCrlf
  ls_text = ls_text & "Computer:" & vbTab & go_net.ComputerName  & vbCrlf
  ls_text = ls_text & "Message:" & vbTab & ps_message   & vbCrlf
  On Error Resume Next
  go_wsh.LogEvent pi_status, ls_text
  On Error Goto 0
End Sub

Sub s_popup( pl_seconds, ps_message )
  Call s_log( ps_message )
  If gb_popup Then
    go_wsh.PopUp fs_datetime(Now) & vbCrlf & vbCrlf & ps_message,
pl_seconds, gs_script_title, ci_popup_info
  End If
End Sub

Sub s_msgbox( ps_message )
  Call s_popup( 60, ps_message )
End Sub

Sub s_log( ps_message )
  Dim ls_message
  ls_message = fs_hhmmss() & "  " & ps_message
  If gb_echo Then WScript.Echo ls_message
  On Error Resume Next
' go_log_chan.WriteLine ls_message
  On Error Goto 0
End Sub

Sub s_pause()
  Call s_msgbox( "Script is paused, hit OK to continue..." )
End Sub


Function fs_datetime( pd_datetime )
  Dim ld_datetime, ls_result
  If VarType( pd_datetime ) = vbDate Then
    ld_datetime = pd_datetime
  Else
    ld_datetime = Now
  End If
  ls_result = WeekDayName( WeekDay( ld_datetime ), False, 1 )
  ls_result = ls_result & " " & FormatDateTime( ld_datetime, vbLongdate )
  ls_result = ls_result & " " & FormatDateTime( ld_datetime, vbLongtime )
  fs_datetime = ls_result
End Function

Function fs_hhmmss()
  Const cs_fac = "%fs_hhmmss, "
  Dim ld_dt
  ld_dt = Now
  fs_hhmmss = fs_zeroes( DatePart( "h", ld_dt ), 2 ) & ":" & fs_zeroes(
DatePart( "n", ld_dt ), 2 ) & ":" & fs_zeroes( DatePart( "s", ld_dt ), 2 )
End Function

Function fs_zeroes( pl_number, pl_length )
  Const cs_fac = "%fs_zeroes, "
  Dim ls_result
  ls_result = String( pl_length, "0" ) & CStr( pl_number )
  ls_result = Right( ls_result, pl_length )
  fs_zeroes = ls_result
End Function







Show quoteHide quote

Have you heard of the Technet Script Center Script Repositry.  It will have
everything you need.

http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

Cheers,
Jeremy


Show quoteHide quote

Deletion of all Content.IE5 subfolders in all user directories
Need WMI script
Using WMI to disable a user account
Event log check
Shutdown script doesn't do anything