Desktop Management Scripting-Sprache › Funktionen › Verschiedene Funktionen › Not - Zurückgeben der logischen Negation eines Ausdrucks

Not - Zurückgeben der logischen Negation eines Ausdrucks

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Die Funktion "Not" gibt die logische Negation eines Ausdrucks zurück.

Funktionssyntax:

Not(n as Integer) as Integer

n

Ausdruck.

Wenn der Parameter n den Wert null ergibt, dann gibt die Funktion TRUE (ungleich null) zurück. Andernfalls wird FALSE (null) zurückgegeben.

Beispiel:

rem

Rem This example creates an icon group called DMS Test with an icon to the script editor.
Rem This Example also adds a shortcut on the desktop
Rem
Rem After the creation the icon group and the shortcut will be removed
Rem

' determine location of dmsedit.exe
Dim hkey, dummy As Integer
Dim dmseditPath As String

hkey = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ComputerAssociates\DMScript\DMSEdit")
If hKey = 0 Then
	MessageBox("Can not open DMSEdit-key", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(1)
	Beenden
End If

If Not(RegQueryVariable(hkey, "dmseditInstalledAt", dmseditPath, dummy) = REG_STRING) Then
	MessageBox("dmseditInstalledAt not found or invalid", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(2)
	Beenden
End If

RegCloseKey(hkey)

' Now Create group and icons
If Not(CreateGroup("DMS Test", LNK_PROGRAMS)) Then
	MessageBox("Can not create icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(3)
	Beenden
End If

If Not(AddItem("DMS Editor", dmseditPath+"\dmsedit.exe","","", "DMS Test",FALSE,)) Then
	MessageBox("Failed to install dmsedit at icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(4)
	Beenden
End If

if Not(CreateLink("DMS Editor", dmseditPath+"\dmsedit.exe","","", "",LNK_NORMAL, LNK_DESKTOP)) Then	MessageBox("Failed to install dmsedit at desktop", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(5)
	Beenden
End If

MessageBox("Icons and shortcut has been created, press OK to delete them again","Desktop Management Scripting: Icon Confirm", MB_OK + MB_ICONINFORMATION)

'Delete shortcut 
if Not(DeleteItem("DMS Editor", "", LNK_DESKTOP)) Then
	MessageBox("Deinstallation von dmsedit vom Desktop fehlgeschlagen", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(6)
	Beenden
End If

if Not(DeleteGroup("DMS Test", LNK_PROGRAMS)) Then
	MessageBox("Failed to delete icon group", "Desktop Management Scripting", MB_OK + MB_ICONEXCLAMATION)

SetStatus(7)
	Beenden

End If