Versions Compared

Old Version 1

changes.mady.by.user Martin Gudme Søndergaard

Saved on

compared with

New Version Current

changes.mady.by.user Mitesh Oliver Sahijpal

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

The following example will ping a server to see if it is responding. and map a share if it replysreplies.

Code Block
vb
vb
Private Function IncludeScript(sScriptFile)
 '...
End Function

'Begin
  bStatus=True
  If bStatus Then bStatus=IncludeScript("customlib.cis")
  If bStatus Then bStatus=IncludeLibrary("Capalib.cin")
  If bStatus Then bStatus=IncludeLibrary("Osdlib.cin")
  If bStatus Then bStatus=Job_Start("WS","Script Name","1.0","ScriptName.log","INSTALL")
  If bStatus Then bStatus=OSD_Initialize()
  
  sServer="SERVER1"
  If bStatus Then bStatus=Net_Ping(sServer,False)
  If bStatus and gbValue Then bStatus=Net_MapNetworkDrive("S:", "\\" & sServer & "\MyShare", True, "", "")

  Job_End(bStatus)
'End main

...